Предмет: Информатика,
автор: Trezzini812
СРОЧНО ХЕЛП!!!!!Напишите программу для решение задачи с клавиатуры вводится целое число от 1 до 99 если число2-значное ,то вывести кол-во десятков в числе,иначе вывести введенное число увеличенное на 1 с помощью dif и mod Paskal
Ответы
Автор ответа:
0
var a:integer;
Begin
read(a);
If a>10 then a:= a div 10
else a:= a+1;
writeln(a);
end.
Begin
read(a);
If a>10 then a:= a div 10
else a:= a+1;
writeln(a);
end.
LikeSmileLJkee:
Можно написать даже "if a>9" чтобы 10 тоже включалось в условие
Интересные вопросы
Предмет: Алгебра,
автор: pihenkozero
Предмет: Українська мова,
автор: zaxarfedorkiv
Предмет: Алгебра,
автор: kisunia00
Предмет: Математика,
автор: progeimer