Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

Дано двузначное число. Определить:превышает ли сумма его цифр само число; является ли сумма его цифр двузначным числом;оканчивается ли введённое число цифрой 5? Заранее спс))

Ответ оставил Гость

Var a,s,x,y:integer;
begin
writeln (введи двузначное число);
readln (a);
x:=a div 10;
y:=a mod 10;

s:=x+y;
if (s>9 ) and (s<100) then writeln(summa dvuznacina) else writeln(summa nedvuznacina);
if a mod 10=5 then writeln (okancivaetsia na 5) else writeln(ne okancivaetsia na 5);
readln;
end.