ПОМОГИТЕ ПОЖАЛУЙСТА !
ДАЮ 40 БАЛЛОВ
ЗАДАЧА ПО ИНФОРМАТИКЕ
в программе паскаль 9 класс
с клавиатуры водятся 4 числа
выяснить, если среди них числ0 равное 0
ДАЮ 40 БАЛЛОВ
ЗАДАЧА ПО ИНФОРМАТИКЕ
в программе паскаль 9 класс
с клавиатуры водятся 4 числа
выяснить, если среди них числ0 равное 0
More Questions From This User See All
Answers & Comments
program EstiLiNoli;
var a,b,c,d:integer;
begin
writeln('vvedi 4 cisla:');
write('a= '); read(a);
write('b= '); read(b);
write('c= '); read(c);
write('d= '); read(d);
if a*b*c*d=0 then writeln(' esti noli...')
else writeln(' net sredi nih noli...');
end.