В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
lynnaytina
lynnaytina
25.06.2022 20:35 •  Информатика

1.пользователь вводит целое число, если оно больше единицы, то выведите на экран все целые числа от этого числа до единицы (в обратном порядке), которые делятся на 23 без остатка. иначе (если введённое пользователем число не больше единицы) сообщите об ошибке. 2.выведите на экран, все нечетные числа, делящиеся на 3 нацело , лежащие в диапазоне от 35 до 117.

Показать ответ
Ответ:
05061972
05061972
08.10.2020 01:47
№1
var  a: integer;
begin  writeln('введите число');  read(a);  if a > 1 then  begin    while a > 1 do    begin      if a mod 23 = 0 then write(a:3);      a := a - 1;    end;  end  else writeln('error');end.

№2
var  i: integer;
beginfor i:=35 to 117 doif (i mod 2<>0) and (i mod 3=0) then write(i:5);end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота