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

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

Question

Информатика

Фессалоникия

9 июля, 15:34

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

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

+2

Ответы (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:

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