1) составить программу и подсчитать количество чисел которые делятся…

1) составить программу и подсчитать количество чисел которые делятся 3 без остатка в интервале {15,60}. 2) составить программу и найти произведение чисел от 2 до 20.

в избранное

saavv

05 марта 2023

var s,i: integer; BEGIN for i: =15 to 60 do if i mod 3=0 then s: =s+1; writeln (s); END. var s,i: integer; BEGIN s: =1; for i: =2 to 20 do s: =s*i; writeln (s); END.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Знаете другой ответ?

Задайте свой вопрос

Смотрите также:

Выполнить умножения 111002*101102

В коком из годгв: 1492, 1961, 1957, 1946, 1951, 988, 1895, 1941, 1147 создали первый компьютер

Создать массив из пяти чисел вводом с клавиатуры и посчитать сумму элементов массива (впаскале)

=SIN (2*ПИ ()*(Дата дня вычисления-Дата рождения) /23) что нужно поставить в скобке после пи?

Составьте диалог пользователя с компьютером на произвольную тему. Например, машина задает два вопроса “Как тебя зовут?

Помогитее! Известны длина и ширина прямоугольника, выяснить что больше его площадь или периметр

Составить программу. Условие: Сумма кубов чисел от 2 до 5. Помогите срочно нужнооченьь)

Написать программу (в паскале), которая спрашивала бы сокращенное имя, а печатало полное для пяти ваших друзей

Для каждого задания написать программу на языке ПАСКАЛЬ 1. Среди двухзначных чисел найти количество четных чисел.…

27400

Алгебра

14822

Английский язык

14216

Биология

7369

Другой

720

18829

8304

15850

5255

11818

23332

15992

73118

8152

466

46271

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: