написать программу которая находит сумму десяти чисел , введённых пользователем с клавиатуры.
Ответы на вопрос
Ответил дмитрий2221
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.
Ответил Сеня111111111111111
0
Программу требуют в виде блок-схем
Ответил дмитрий2221
0
Сайт делает так, что строки которые я копировал, соединяются в 1
Ответил Аноним
0
Не сайт, а лишь некоторые браузеры. Нужно исправить
Ответил дмитрий2221
0
я могу сказать только одно, ответ нельзя редактировать))
Ответил Аноним
0
Обновите страницу - можно будет.
Ответил ScienceTech
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 года назад
Алгебра,
8 лет назад
История,
8 лет назад
Математика,
9 лет назад