Задание:
Составить программы решения заданий в Паскале: 1. Определить, является ли целое число N четным двузнычным числом. 2. Подсчитать количествоотрицательных чисел среди чисел а,b, c.
Решение:
№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.
Знаете другой ответ?