Вопрос пользователя:
Цикл повторення з параметром
Цикл повторення з післяумовою
Цикл повторення з перед умовою
Двовимірний масив
Одновимірний масив
Потрібно по 4 розвязані задачі(Будь-яка умова) на кожну із цих тем.
Илюха отвечает:
Задача: знайти суму всіх натуральних чисел від 1 до п.
Program Suma 2;
var I, n, s: integer;
begin
writeln (‘Ведіть кількість натуральних чисел:’);
write (‘N=’);
readln (n);
Задача: знайти суму всіх натуральних чисел від 1 до п.
Program Suma 2;
var I, n, s: integer;
begin
writeln (‘Ведіть кількість натуральних чисел:’);
write (‘N=’);
readln (n);
I:=1; s:=0;
repeat
s:=s+I;
I:=I+1;
until I>n;
writeln (‘s=’,s);
I:=1; s:=0;
repeat
s:=s+I;
I:=I+1;
until I>n;
writeln (‘s=’,s);