составить программу суммирования натуральных чисел 1...n пока их сумма не превысит величину h. Вывести на экран последнее слагаемое и сумму
Ответы
Ответ дал:
0
readln(n,h);
for i:=1 to n do begin
s:=s+i;
if s>h then
break;
end;
writeln(i,s);
for i:=1 to n do begin
s:=s+i;
if s>h then
break;
end;
writeln(i,s);
Ответ дал:
0
uses crt;
var n,h,i,sum:integer;
begin
read(n,h);
while sum<=h do
begin
sum+=i;
i+=1;
end;
writeln(i-1,' ',sum-i);
end.
var n,h,i,sum:integer;
begin
read(n,h);
while sum<=h do
begin
sum+=i;
i+=1;
end;
writeln(i-1,' ',sum-i);
end.
Ответ дал:
0
Странно, что мой abc не хочет читать такую запись...
Ответ дал:
0
а вот паскаль... http://rghost.ru/50608100.view
Ответ дал:
0
Возможно, надо обновить pascal abc. Ну даже если не заработает - не критично.
Похожие вопросы
2 года назад
7 лет назад
7 лет назад
10 лет назад
10 лет назад
10 лет назад