"Найти сумму всех положительных чисел вводимых с клавиатуры. Если 0, то вывод на печать" Программа Паскаль АВС....ПОМОГИТЕ!!!!!!!
uses crt;var a,s:integer;begins:=0;writeln('Введите числа');while a<>0 do beginreadln(a);if (a>0) then s:=s+a;end;writeln('s=',s);end.
uses crt;var a,s:integer;begins:=0;writeln('Введите числа');repeatreadln(a);if (a>0) then s:=s+a;until a=0;writeln(s);end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
uses crt;
var a,s:integer;
begin
s:=0;
writeln('Введите числа');
while a<>0 do begin
readln(a);
if (a>0) then s:=s+a;
end;
writeln('s=',s);
end.
uses crt;
var a,s:integer;
begin
s:=0;
writeln('Введите числа');
repeat
readln(a);
if (a>0) then s:=s+a;
until a=0;
writeln(s);
end.