Все
Математика
Алгебра
Геометрия
Литература
Русский язык
Истоки
Краеведение
Французский язык
Литературное чтение
Астрономия
Природоведение
Родной край
Немецкий язык
Технология
Физика
Английский язык
Обществознание
Химия
Биология
История
О`zbek tili
Окружающий мир
Естествознание
География
Украинский язык
Информатика
Украинская литература
Казахский язык
Физкультура и спорт
Экономика
Музыка
Право
Белорусский язык
МХК
Кубановедение
ОБЖ
Психология
Кыргыз тили
Другие предметы
Показать все предметы
Лорелей
21.04.2021, 07:13
Информатика

1)Напишите программу, которая вводит натуральное число N и нахо­ дит сумму всех натуральных чисел от

1 до N. Используйте сначала цикл с условием, а потом — цикл с переменной.2)Напишите программу, которая вводит натуральное число N и выво­ дит первые N чётных натуральных чисел.3)Напишите программу, которая вводит натуральные числа а и Ь, и выводит квадраты натуральных чисел в диапазоне от а до Ъ. Напри­ мер, если ввести 4 и 5, программа должна вывести: 4 * 4=16 5 * 5=25
Знаешь ответ?

Чтобы оставить ответ, или зарегистрируйтесь.

Ответ или решение 1
Игнатьева Варвара
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.