Синформатикой,. 40 !
1)дано два двузначных числа.определить сколько в них цифр 1 и 2? +блок-схема
2)дано 5 натуральных чисел.опрелелить сумму тех,которве заканчиваются на 3.
3)дано четырехзначное число.определить,будет ли сумма крайних цифр равна сумме в средних цифрах числа?

ответ:Program z1;

var k : integer;

begin

writeln('Введіть номер місяця');

readln(k);

case k of 1: writeln('січень');

2: writeln('лютий');

3: writeln('березень');

4: writeln('квітень');

5: writeln('травень');

6: writeln('червень');

7: writeln('липень');

8: writeln('серпень');

9: writeln('вересень');

10: writeln('жовтень');

11: writeln('листопад');

12: writeln('грудень');

end; { case }

case k of 1,2,12: writeln('зима');

3,4,5: writeln('весна');

6,7,8: writeln('літо');

9,10,11: writeln('осінь');

else writeln('такого місяця немає');

end; { case }

readln end.

Объяснение:

ответ:Program z1;

var k : integer;

begin

writeln('Введіть номер місяця');

readln(k);

case k of 1: writeln('січень');

2: writeln('лютий');

3: writeln('березень');

4: writeln('квітень');

5: writeln('травень');

6: writeln('червень');

7: writeln('липень');

8: writeln('серпень');

9: writeln('вересень');

10: writeln('жовтень');

11: writeln('листопад');

12: writeln('грудень');

end; { case }

case k of 1,2,12: writeln('зима');

3,4,5: writeln('весна');

6,7,8: writeln('літо');

9,10,11: writeln('осінь');

else writeln('такого місяця немає');

end; { case }

readln end.

Объяснение: