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

Question

Информатика

Кирилла

20 марта, 04:28

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

+4

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