Предмет: Информатика,
автор: varying456
Напишите программу для решения задачи и реализуйте ее в среде програмирования PascalABC. Используйте операции div и mod. Задано трехзначное число. Найдите на сколько количество сотен отличается от количества единиц числа. СРОЧНО!!!!!
HIPM:
Вроде, да
И еще
Как записывать разницу
На свое усмотрение? Окей
Госпади, что со мной, сам на свои вопросы отвечаю...
Нет
Что такое сотни
Ааааааа
Ваще туплю
Всё, гнеет мозг
Ответы
Автор ответа:
1
[Программа в приложении]
Приложения:
не могу открыть
Вам текстом кинуть?
var
num, edi: integer;
begin
write('Введите трёхзначное число: ');
read(num);
edi := num MOD 10;
num := num DIV 100; //С этого момена num - сотая числа
write('Сотая часть числа ');
if num > edi then write('больше единичной на ', num - edi) else write('меньше единичной на ', edi - num);
end.
num, edi: integer;
begin
write('Введите трёхзначное число: ');
read(num);
edi := num MOD 10;
num := num DIV 100; //С этого момена num - сотая числа
write('Сотая часть числа ');
if num > edi then write('больше единичной на ', num - edi) else write('меньше единичной на ', edi - num);
end.
спасибо
Похожие вопросы
Предмет: Русский язык,
автор: alidadadshzade78
Предмет: Математика,
автор: kirillstars296
Предмет: Русский язык,
автор: valeramva1997
Предмет: Математика,
автор: wertu71067274
Предмет: Математика,
автор: maxima777