Пожалуйста, помогите с решением 7 ой задачи. Программу нужно написать в Паскале.
Answers & Comments
danulpopov// PascalABC.NET 3.3, сборка 1576 от 16.11.2017 // Внимание! Если программа не работает, обновите версию!
Begin var a:= ReadInteger('Введите двузначное число'); If a mod 10 > a div 10 then Writeln('Вторая цифра числа - больше') else if a mod 10 < a div 10 then Writeln('Первая цифра числа - больше') else Writeln('Обе цифры равны'); end.
1 votes Thanks 1
ZEBRRAHEAD
USES crt;VAR a,b,c: integer;begincls;repeatWRITE('Введите двухзначное число: '); READLN (a);until (a>=10)and(a<=99);b:=a div 10;c:=a mod 10;if b>c then writeln ('Первая цифра больше.');if b<c then writeln ('Вторая цифра больше.');if b=c then writeln ('Первая и вторая цифры равны.');END.
Answers & Comments
// Внимание! Если программа не работает, обновите версию!
Begin
var a:= ReadInteger('Введите двузначное число');
If a mod 10 > a div 10 then
Writeln('Вторая цифра числа - больше')
else
if a mod 10 < a div 10 then
Writeln('Первая цифра числа - больше')
else
Writeln('Обе цифры равны');
end.