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

122

240

Посмотреть ответы 2

Ответы на вопрос:

0Pandohcka0

Информатика

4,8(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.

Yana541234678906421

Информатика

4,7(45 оценок)

Var a,b,x: real; z: integer; begin write('x = '); readln(x); write('a = '); readln(a); write('b = '); readln(b); z : = trunc(x*x+a*b); writeln('[z] = ', z); writeln('[z] mod 7 = ', z mod 7); writeln(system.globalization .cultureinfo.currentculture .datetimeformat.daynames[(z+1) mod 7]); // если нулевой день это воскресенье, то не (z+1) а z mod 7 end.