1. Информатика
  2. Паскаль: знайдіть всі числа з

Паскаль: знайдіть всі числа з інтервалу 100-200 кратні 25. знайдіть їх суму та кількість. !

Тамерлашкой Тамерлашкой    3   21.06.2019 12:40    0

Ответы
КлименковЛеонид КлименковЛеонид  17.07.2020 01:45
 program 12332586; 
var i,s:integer; 
begin S:=0;
for i:=100 to 200 do
if (i mod 25=0) then
S:=S+i;       
writeln(s);           
    end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
DashaP2006 DashaP2006  03.09.2019 06:30
Нужно создать программу в visual basic , она должна вычислить среднее арифметическое введенных чисел ,написать программу, которая вводит с клавиатуры n вещественных чисел и вычисляет...
явселеная явселеная  12.05.2019 13:18
Максим, олег и никита прогуляли урок технологии. директор вызвал мальчиков на беседу. на вопрос, кто зачинщик этого прогула, ответили следующее. никита: это не я придумал, и олег...
elenazarubina1 elenazarubina1  12.05.2019 13:18
Паскаль. блок схема : вычисление массовой доли элемента в веществе.информатика . ....
Kirich0ult Kirich0ult  12.05.2019 15:16
Какой(ие) из перечисленных ниже видов компакт-дисков cd-rom; (3) cd-rw; cd-r; (4) dvd-rom предназначен(ы) для записи новой информации? а) (1); в) (1), (4); с) (2); d) (3); е) (2),...
Дынька666 Дынька666  12.05.2019 15:14
1) исправьте if cout “a b” then a b 2) обоснуйте использование int double 3) автомобиль проезжает s км за t часов разработайте программу нахождения скорости...
romchik238 romchik238  01.07.2019 10:00
Ввести два целочисленныхмассива − по 10 элементов в каждом. сформировать новый массив, на четных местах которого будут элементы с нечетными индексами из первого массива, а нанечетных...
vladimirrr74 vladimirrr74  12.05.2021 18:34
Найкраща мова аналіз твору (тема, ідея) будь ласка до іть! ​...
Лапулька111 Лапулька111  12.05.2021 18:34
Знайдіть усі натуральні значення a, при яких є правильною нерівність 1 ціла 7/8 а/8 2 цілих 3/8....
Veronika72563 Veronika72563  12.05.2021 18:34
4. В плоском зеркале получ ено изображение светящейся точки от лазерного луча. Постройте изображение точки в зеркале. Назовите характеристики полученного изображения​...
sergey19751975 sergey19751975  12.05.2021 18:35
В 1517 году М. Лютер прибил к дверям Собора в Виттенберге 95 тезисов . Это привело к началу Реформации. Каковы были положительные последствия реформации? Верных ответов: 4​...

Популярные вопросы