1. Информатика
  2. Не могу решить уже который

Не могу решить уже который час

марлен223 марлен223    2   07.05.2020 13:24    2

Ответы
timev01 timev01  14.10.2020 09:48

var a,b: integer;

begin

b:=30000;a:=1; while a<>0 do begin

  readln (a);   if(( a<>0)and(a mod 7=0) and (a mod 10<>4))  then  if a<b then b:=a ; end;

  write('b=',b)

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Legodgidai Legodgidai  30.05.2023 04:44
Дка проч 2.Опишите (своими словами) важность первого этапа решения задач на компьютере:...
yxhcycgc yxhcycgc  13.04.2020 09:07
Запишіть малими літерами у кутових лапках відкриваючий тег встановлення маркованого списку...
lolka143 lolka143  13.04.2020 09:07
Написать схему по программе Var x,s: integer; Begin X:=1; While x =22 do begin If (x mod 2)=0 then S:= S+1; X:=x+3; End; Write(S); End....
приветки1 приветки1  08.05.2020 14:52
Для ввода в оперативную память значений переменных используется оператор...
karonkol karonkol  08.05.2020 14:52
позя Для выражения левого столбца найдите соответствующие выражения в правом столбце(фото)2. Из приведенных ниже высказываний найдите верное:а) Чтобы воспользоваться компьютерными...
avangardstroic avangardstroic  08.05.2020 14:52
На рисунке - схема дорог, связывающая города А, Б, В, Г, Д, Е, Ж и К.По каждой дороге можно двигаться только в одном направлении, указанном стрелкой. Сколько существует различных...
catyaserduck catyaserduck  08.05.2020 14:54
Составить программу на языке Паскаль. Ввести массив из 12 целых чисел. Вставить в него число В перед последним элементом. Число В ввести случайным образом. Полученный массив вывести...
издательство1 издательство1  08.05.2020 14:54
Установите соответствие. Сортировщик слайдов Показ слайдов Обычный режим 1 Создание слайда: его оформление, вставка текста и графики 2 Определение и установка перехода от слайда...
альбина330 альбина330  22.02.2022 07:04
Составить программу нахождения s квадрата ,S треугольника если а= 15, b=20...
ВладимирЛенин1 ВладимирЛенин1  22.02.2022 07:04
разобраться задание но что-то я сегодня не выспался :-(....

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