1. Информатика
  2. Решить по информатике))

Решить по информатике)) используя жесткий цикл , выведите на экран все числа от 20 до 99, не оканчивающиеся на 7

900901 900901    3   10.03.2019 05:20    1

Ответы
ДмитрийНазаров1 ДмитрийНазаров1  24.05.2020 14:05

program cikl;
var i:integer;
begin
for i:=20 to 99 do
if i mod 10<>7 then write(i:3);
end.

 

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Vika3839 Vika3839  12.08.2019 01:30
3. в каком пункте перечислены мультимедийные устройства? a) клавиатура, видеокамера b) смартфон, принтер c) компьютер, смартфон d) сканер, клавиатура...
05012008попович 05012008попович  21.05.2019 06:10
Написать программу вычисления стоимости покупки с учетом скидки. скидка в 3% предоставляется в том случае, если сумма покупки больше 500 руб., в 5% — если сумма больше 1000 руб....
ler22kya ler22kya  21.05.2019 06:10
Дан массив а из 20 элементов. найти сумму элементов массива. результат вывести на печать . на языке бейсика. если можно полное...
ладнобудеттакойник ладнобудеттакойник  21.05.2019 06:10
Как, используя функцию random(x), можно получать числа в диапазонах: от 1 до 10, от -10 до +10, от 50 до 100?...
Mariyaftolov Mariyaftolov  28.05.2019 10:00
(паскаль) один долгожитель, которому за 100 лет, заметил, что если к сумме квадратов цифр его возраста добавить дату его рождения (натуральное число, не большее 31), то получится...
ok683000 ok683000  28.05.2019 09:50
(паскаль) гриб за сутки увеличивает свою массу на 40%. через сколько суток масса гриба увеличится в 2,5 раза, если первоначально масса гриба составляла а?...
radmila85 radmila85  07.05.2020 11:52
Чему будет равна величина с после выполнения следующего алгоритма? а:= 3+8*4; b:= (a div 10) + 14; a:= (b mod 10) +2; c:= a+b; Варианты ответов: а) 26 б) 28 в) 24 г) 22...
рамиля28 рамиля28  07.05.2020 11:52
Дано ціле число N( 0). Знайти квадрат даного числа, використовуючиДля його обчислення наступну формулу: n2= 1 +3+5 +::: + (2 * n - 1).Після додавання до суми кожного доданка виводити...
tsybizovaanya tsybizovaanya  07.05.2020 11:52
Для кодирования одного из цветов палитры служит двоичный код 00011. Сколько цветов содержит палитра?...
shkolar345 shkolar345  11.04.2021 09:26
Найти количество положительных (отрицательных) чисел среди четырех чисел А,В,С в Vba Excel​...

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