1)Напишите программу, которая вводит натуральное число N и нахо дит сумму всех натуральных чисел от 1 до N. Используйте сначала цикл с условием, а потом — цикл с переменной.2)Напишите программу, которая вводит натуральное числ...
1)Напишите программу, которая вводит натуральное число N и нахо
дит сумму всех натуральных чисел от 1 до N. Используйте сначала
цикл с условием, а потом — цикл с переменной.2)Напишите программу, которая вводит натуральное число N и выво
дит первые N чётных натуральных чисел.3)Напишите программу, которая вводит натуральные числа а и Ь, и
выводит квадраты натуральных чисел в диапазоне от а до Ъ. Напри
мер, если ввести 4 и 5, программа должна вывести:
4 * 4=16
5 * 5=25
Гость
Ответ(ы) на вопрос:
Гость(Pascal)
1.
var
i, s, n: integer;
begin
readln(n);
s := 0;
i := 0;
while i < n do
begin
i := i + 1;
s := s + i;
end;
writeln('Цикл с предусловием: ', s);
s := 0;
i := 1;
repeat
s := s + i;
i := i + 1;
until i > n;
writeln('Цикл с постусловием: ', s);
s := 0;
for i := 1 to n do
s := s + i;
writeln('Цикл с переменной: ', s);
end.
2.
var
i, n: integer;
begin
readln(n);
for i := 1 to n do
write(2 * i, ' ')
end.
3.
var
i, a, b: integer;
begin
readln(a, b);
for i := a to b do
writeln(i, ' * ', i, ' = ', i * i)
end.
Не нашли ответ?
Похожие вопросы