Составить программы решения заданий в Паскале:…

Question

Составить программы решения заданий в Паскале: 1. Определить, является ли целое число N четным двузнычным числом. 2. Подсчитать количествоотрицательных чисел среди чисел а,b, c.

Answer 1

42

mephis

19 апреля 2023

№1Program z1; var N: integer; Beginwrite ('Введите число N: '); readln (N); if (N mod 2=0) and (N div 100 < 1) and (N > 9) then write ('Данное число является четным двузначным') else if (N div 100 < 1) and (N > 9) then write ('Данное число не четное двузначное'); end. №2Program z2; var a, b, c, k: integer; Begink: =0; writeln ('Введите числа a, b и c: '); readln (a,b,c); if a<0 then k: =k+1; if b<0 then k: =k+1; if c<0 then k: =k+1; write ('Количество отрицательных чисел: ',k) end.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: