Предмет: Информатика,
автор: gavrilova007
Помогите , нужно составить программки «Паскаль»
Приложения:
Ответы
Автор ответа:
0
Уровень A
var k, n, summa: integer;
begin
readln (n);
summa := 0;
k := 1;
while k <= n do
begin
summa := summa + k;
k := k + 1;
end;
writeln('Сумма чисел: ', summa);
readln;
end.
var k, n, summa: integer;
begin
readln (n);
summa := 0;
k := 1;
while k <= n do
begin
summa := summa + k;
k := k + 1;
end;
writeln('Сумма чисел: ', summa);
readln;
end.
Похожие вопросы
Предмет: Алгебра,
автор: mansi98
Предмет: Математика,
автор: martarolle2001
Предмет: Обществознание,
автор: uterop
Предмет: Обществознание,
автор: ДаниилХодосов
Предмет: География,
автор: Аноним
k, n: integer;
pr: real;
begin
readln(n);
pr := 1;
k := 1;
while k <= n do
begin
pr := pr * k;
k := k + 1;
end;
writeln('Произедение чисел: ', pr);
readln;
end.