Даны три целых числа. Определить…

Question

Даны три целых числа. Определить, сколько среди них положительных чисел. Составить программу на языке Паскаль

Answer 1

72

jack62

28 февраля 2023

var a,b,c,col: integer; begincol: =0; readln (a,b,c); if (a>0) then col: =col+1 else if (b>0) then col: =col+1 else if (c>0) then col: =col+1; writeln ('Положительных чисел: ',col); readln; end.

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

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

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

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

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