Составить программу на языке Pascal:

Даны числа а, в, с. Найти количество положительных чисел среди них.

Question

Информатика

Элюся

19 июня, 17:48

Составить программу на языке Pascal:

Даны числа а, в, с. Найти количество положительных чисел среди них.

+3

Ответы (1)

Знаете ответ?

Фессалоника · Answer 1

Program ABC; var A, B, C:real; beginwrite ('Введите три числа ') ; read (A, B, C) ; if A>0 then writeln (A,' положительное') ; if B>0 then writeln (B,' положительное') ; if C>0 then writeln (C,' положительное') ; end.

Составить программу на языке Pascal:Даны числа а, в, с. Найти количество положительных чисел среди них.

Составить программу на языке Pascal:

Даны числа а, в, с. Найти количество положительных чисел среди них.