Ответы
Ответ дал:
0
program If4;
var
N1, N2, N3, Res : Integer;
begin
Write('Введите перовое целое число: ');
Readln(N1);
Write('Введите второе целое число: ');
Readln(N2);
Write('Введите третье целое число: ');
Readln(N3);
Res:=0;
if N1>0 then Inc(Res);
if N2>0 then Inc(Res);
if N3>0 then Inc(Res);
writeln(Res);
end.
Вас заинтересует
1 год назад
2 года назад
7 лет назад
8 лет назад