Паскаль, все в одной программе: дано число: 1) проверить является ли оно трехзначным 2)является ли оно нечетным 3)равны ли его 1 и последняя цифра если число не трехзначное, 2 и 3 пункт не должны срабатывать.

256

351

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

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

помагите71

Информатика

4,6(10 оценок)

// pascalabc.net 3.3, сборка 1625 от 17.01.2018 // внимание! если программа не работает, обновите версию! begin var n: =readinteger('n='); if abs(n).between(100,999) then begin writeln('число трехзначное'); if n.isodd then writeln('число нечетное') else writeln('число четное'); if n div 100 = n mod 10 then writeln('его первая и последняя цифры равны') else writeln('его первая и последняя цифры не равны') end else writeln('число не трехзначное') end. примеры n= 452 число трехзначное число четное его первая и последняя цифры не равны n= 313 число трехзначное число нечетное его первая и последняя цифры равны n= 18 число не трехзначное

зайчик135

Информатика

4,4(43 оценок)

Program name; var a : integer; begin read(a); if (a div 100 > 0) and (a div 1000 = 0) then if (a mod 2 = 0) then if a div 100 = a mod 10 then write('ok'); end.

Алёнажж

Информатика

4,5(28 оценок)

Program program1; var a,b,c,d: real; begin writeln('введите число 1'); readln(a); writeln('введите число 2'); readln(b); writeln('введите число 3'); readln(c); d: =a+b+c; writeln('a+b+c=',d); end.