С клавиатуры вводятся 3 числа. сколько среди них положительных ?
Нужно решать либо с if или с case
More Questions From This User See All
С клавиатуры вводятся 3 числа. сколько среди них положительных ?
Нужно решать либо с if или с case
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var mult, a, b, c:integer;
begin
write('введите 3 числа');
read(a,b,c);
mult:=0;
if a>0 then
mult:=mult+1
else mult:=mult;
end;
if b>0 then
mult:=mult+1
else mult:=mult;
if c>0 then
mult"=mult+1
else mult:=mult;
end;
writeln('положительных ' ,mult, ' чисел');
end.