Написать программу которая находит сумму десяти чисел , введённых пользователем с...

0 голосов
93 просмотров

Написать программу которая находит сумму десяти чисел , введённых пользователем с клавиатуры.


Информатика (36 баллов)
оставил комментарий Начинающий (229 баллов)

Можешь пример дать?

оставил комментарий Начинающий (229 баллов)

Просто не могу понять, как найти сумму слов

оставил комментарий Начинающий (229 баллов)

Если расскажешь, как найти сумму слов, то алгоритм напишу

оставил комментарий Отличник (6.6k баллов)

Алгоритм на каком языке? На аглоритмическом, на Pascal, на Basic... ?

оставил комментарий (36 баллов)

опечатка : чисел

Дано ответов: 2
0 голосов
Начинающий (229 баллов)

Алгоритм на 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.

оставил комментарий Начинающий (229 баллов)

program abc;
var
sum,i,k:longint;
begin
for i:=1 to 10 do begin
read(k);
sum:=sum+k;
end;
writeln(sum);
end.

оставил комментарий Отличник (6.6k баллов)

Скопируйте нормально в ответ.. что в ответе - не работает, а комменты не считаются

оставил комментарий (36 баллов)

Программу требуют в виде блок-схем

оставил комментарий Начинающий (229 баллов)

Сайт делает так, что строки которые я копировал, соединяются в 1

оставил комментарий Отличник (6.6k баллов)

Не сайт, а лишь некоторые браузеры. Нужно исправить

оставил комментарий Начинающий (229 баллов)

я могу сказать только одно, ответ нельзя редактировать))

оставил комментарий Отличник (6.6k баллов)

Обновите страницу - можно будет.

0 голосов
Начинающий (586 баллов)
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.
...