1) напишите программку которое вводит натуральное число"n" и находит сумму всех
1) напишите программу которое вводит естественное число"n" и обретает сумму всех натуральных чисел от 1 до n (цикл пока).
2)напишите программу которое вводит естественное число "n" и выводит первые "n" четных естественных чисел.
3)напишите программку которая вводит естественные числа "a и b" и выводит квадраты естественных чисел в спектре от "a до b".
помогите пожалуйста , а то не разумею)))
1)
var
a, n, s: integer;
begin
write('n = ');
Readln(n);
a := 1;
while a lt;= n do
begin
s := s + a;
a := a + 1;
end;
writeln(s);
end.
2)
var
a, n: integer;
begin
write('n = ');
Readln(n);
a := 1;
while a lt;= n do
begin
writeln(2 * a);
a := a + 1;
end;
end.
3)
var
a, b: integer;
begin
write('Введите числа a и b: ');
Readln(a, b);
while a lt;= b do
begin
writeln(a, '^2 = ', sqr(a));
a := a + 1;
end;
end.
-
Вопросы ответы
Статьи
Информатика
Статьи
Разные вопросы.
Математика.
Физика.
Геометрия.
Разные вопросы.
Обществознание.
Математика.
Химия.
Русский язык.
Разные вопросы.