Написать на Паскале программу, которая запрашивает с клавиатуры N произвольных целых чисел и ищет их сумму. Число N вводится с клавиатуры. Разработать для
5-9 класс
|
созданной программы не менее трех тестов и проверить на них правильность работы алгоритма.
БЕЗ МАССИВА
ПОЖАЛУЙСТА
+194884839383948 К КАРМЕ ТОМУ КТОНАПИШЕТ
var i,n,s:integer;
begin
write('Write N: ');
readln(n);
s:=0;
for i:=1 to n do
begin
Readln(n);
s:=s+n;
end;
writeln('Summ: ',s);
readln;
end.
var i,n,s,j:integer;
begin
write('Write N: ');
readln(n);
s:=0;
i:=0;
while i<=n-1 do
begin
Inc(i);
Readln(j);
s:=s+j;
end;
writeln('Summ: ',s);
readln;
end.
Другие вопросы из категории
работы по порядку, чтобы получилось «Лабораторная работа (1)», «Лабораторная работа (2)», и т.д.
положение.Помогите,очень срочно!
Читайте также
программу, которая запрашивала три числа, подсчитывала их средне и сумму и на экран выводила фразу "Их среднее равно..." и "Их сумма равна..."
программу на Паскале, в которой вычисляются четыре величины: средние температуры зимних месяцев, весенних месяцев, летних и осенних. 2)Вы посетили магазин и купили 10 видов товара. В таблицу T [1..10] записали количество купленного товара каждого вида. В таблицу C [1..10] записали цену единицы каждого вида товара соответственно. Составить программу на Паскале вычисления общей стоимости всех покупок.