Составить блок-схемы и программы для решения задач 1. Даны три действительных числа А, В, С. Определите, сколько среди них отрицательных.

Question

Информатика

Олимпиодора

5 апреля, 10:09

Составить блок-схемы и программы для решения задач 1. Даны три действительных числа А, В, С. Определите, сколько среди них отрицательных.

+3

Ответы (1)

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

Вилен · Answer 1

var d:real;

i, k:integer;

Begin

k:=0;

for i: = 1 to 3 do begin

writeln ("Введит число") ;

read (d) ;

if (d<0) then k:=k+1;

end;

writeln (k) ;

End.