Ответы
Ответ дал:
1
Ответ:
program ExampleN;
var
a, b, c: Real;
k: Integer;
begin
WriteLn ('Введете три числа: ');
ReadLn (a, b, c);
k := 0;
if a > 0 then
Inc (k);
if b > 0 then
Inc (k);
if c > 0 then
Inc (k);
WriteLn ('Количество положительных чисел = ', k);
ReadLn;
end.
Вас заинтересует
5 месяцев назад
1 год назад
2 года назад
2 года назад
7 лет назад