Как составить эту программу вычисления чисел кратных не только 2 но и 3. var x, y: integer ; begin y: =0; for x: = 10 to 99 do if x mod 2=0 then y: =y+1; writeln ('количество чисел, кратных 2, равно ', y); end.

AlyonaYarmak   ·   15.06.2019 10:50
Ответов: 3 Показать ответы 10 Обсудить

Другие вопросы по Информатике

Среди 2005 монет одна фальшивая как в два взвешивания на чашечных весах без гирь определить легче эта монета или тяжелее чем решение нужно в полном объёме с рисунком желательно...
Информатика
02.03.2019 19:30
2 ответ(ов)
Cd объемом 700 мб весит 15г. сколько будет весить набор таких дисков, необходимый для полного копирования информации с жесткого диска объемом 320 гб?...
Информатика
03.03.2019 07:10
3 ответ(ов)
Написать на языке паскаль программу вычисления у по формуле: y=(1-x^2 + 5x^4)^4 где х целое число...
Информатика
08.03.2019 23:00
2 ответ(ов)
Напишите программу, чтобы черепашка нарисовала букву б информатика зарание...
Информатика
09.03.2019 14:00
4 ответ(ов)
Опишите последовательность действий василисы премудрой,которая должна ровно 7 минут варить элексир бессмертия и имеет в своем распоряжении двое песочных часов: на 3 минуты и на 8 м...
Информатика
10.03.2019 11:10
3 ответ(ов)
1)компания, фирма, представляющая услуги для доступа к сети интернет...
Информатика
03.03.2019 14:54
1 ответ(ов)
Запишите код программы с операторов интегрированной среды программирования для заданного алгоритма.по lazarus...
Информатика
04.03.2019 08:42
2 ответ(ов)
Как в python 3.7.2 перейти на новую строчку, то есть я пишу код, например x=input(''), как мне перейти на след. строчку, чтобы его продолжить, так как при нажатии enter он выдаёт м...
Информатика
08.03.2019 19:11
3 ответ(ов)
Ориентация листа бумаги — 1)книжная 2)нет верного ответа 3)альбомная 4)листовая...
Информатика
09.03.2019 16:12
1 ответ(ов)
Решить ! просто не успеваю решить 1. вычислить какое количество информации приходится на одно сообщение длиной 3, 4, 5 и 6 символов, составленное из а) двоичного, б) троичного а...
Информатика
10.03.2019 07:55
1 ответ(ов)
Дано натуральное число n .выведите, номера разрядов ,в которых стоят цифры,кратные 3,или сообщение,что таких цифр нет....
Информатика
10.03.2019 13:57
1 ответ(ов)
Надо верная строка else begin x: =0; y: =y+1 end 2- then y: =y+1; x: =0 else y: =0; x: =x+1 3-какова структура оператора организующего ветвление в языке програмирования паскаль?...
Информатика
11.03.2019 11:59
1 ответ(ов)
Самые популярные сегодня