Ответы
Ответ дал:
0
Алгоритм на Pascal
program abc;var sum,i,k:longint; begin for i:=1 to 10 do begin read(k); sum:=sum+k; end; writeln(sum); end.
program abc;var sum,i,k:longint; begin for i:=1 to 10 do begin read(k); sum:=sum+k; end; writeln(sum); end.
Ответ дал:
0
Программу требуют в виде блок-схем
Ответ дал:
0
Сайт делает так, что строки которые я копировал, соединяются в 1
Ответ дал:
0
Не сайт, а лишь некоторые браузеры. Нужно исправить
Ответ дал:
0
я могу сказать только одно, ответ нельзя редактировать))
Ответ дал:
0
Обновите страницу - можно будет.
Ответ дал:
0
program summation;
var num, sum, counter, userValue : integer;
begin
writeln('Сколько раз просуммировать числа?');
readln(userValue);
for counter := 1 to userValue do
begin
sum := 0;
repeat
writeln('Введите число: ');
readln(num);
if num >= 0 then
sum := num + sum;
until num < 0;
writeln('Сумма чисел равна: ', sum);
readln;
end;
end.
var num, sum, counter, userValue : integer;
begin
writeln('Сколько раз просуммировать числа?');
readln(userValue);
for counter := 1 to userValue do
begin
sum := 0;
repeat
writeln('Введите число: ');
readln(num);
if num >= 0 then
sum := num + sum;
until num < 0;
writeln('Сумма чисел равна: ', sum);
readln;
end;
end.
Вас заинтересует
2 года назад
2 года назад
3 года назад
3 года назад
9 лет назад
9 лет назад
10 лет назад