Составьте программы: 1. определить является ли число чётным 2. найти первую цифру 3-х значного числа и определить делится ли она на 3

247

447

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

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

polinka20042014

Информатика

4,8(30 оценок)

1)var a: integer; begin writeln('введите число'); readln(a); if a mod 2=0 then writeln('число чётное') else writeln('число нечётное'); end. 2)var a,b: integer; begin writeln('введите число'); readln(a); b: = a div 100; if b> 9 then writeln('ошибка') else begin writeln('первая цифра это'); writeln (b); if b mod 3=0 then writeln('первая цифра числа делится на 3') else writeln('первая цифра числа не делится на 3'); end; end.