Предмет: Информатика,
автор: Сеня111111111111111
написать программу которая находит сумму десяти чисел , введённых пользователем с клавиатуры.
Ответы
Автор ответа:
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.
Похожие вопросы
Предмет: Алгебра,
автор: ari0557
Предмет: Английский язык,
автор: makatovasholpan
Предмет: Математика,
автор: angelinadacenko23
Предмет: Биология,
автор: glebgruzdev2016
Предмет: Математика,
автор: TomaStrela