1. Информатика
  2. Втрехзначном числе зачеркнули

Втрехзначном числе зачеркнули первую цифру слева когда полученное двузначное число уменьшили на 7, то получили данное число.найти это число решить через бейсик

ibatullinazuhra ibatullinazuhra    1   18.05.2019 20:10    0

Ответы
ViWell ViWell  12.06.2020 01:42


1 Var a,i:integer;
2 begin
3 for i:=100 to 999 do
4 begin
5 a:=i mod 100;
6 if 7*a=i then writeln(i);
7 end;
8 End.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
djsxv djsxv  21.06.2019 20:40
Напишите программу в которой осуществляется ввод целых чисел и подсчет суммы и среднего арифметического введенных положительных чисел используя оператор repeat...
Andrey500500500 Andrey500500500  21.06.2019 20:40
Внекоторой стране автомобильный номер состоит из 7 символов. в качестве этих символов используют 18 различных букв и десятичные цифры в любом порядке. каждый такой номер в компьютер¬ной...
Dovakin270 Dovakin270  21.06.2019 20:40
Костя, ваня и маша участвовали в соревнованиях по бегу. заняли три первых места. какой место занял каждый мальчик, если известно, что костя занял не третье место, ваня и маша точно...
06anna11 06anna11  20.03.2020 13:35
Запустите текстовый редактор. Наберите текст«…Казахстан расположен в центре континента Евразия и занимает девятое место в мире по площади. На востоке, севере и северо-западе Казахстан...
TOPTopTOP1vvv TOPTopTOP1vvv  20.03.2020 13:40
Задание No 1Запишите математическую крормулу в виде арифметического выражения на Фортране​...
tana2811 tana2811  18.03.2020 01:00
ОЧЕНЬ Задача написать алгоритм для Робота, чтобы он из левой обстановки перешёл в правую. При этом размер стен неизвестен. Также расстояние между стенами также неизвестно. заранее...
dimaolegon96 dimaolegon96  18.03.2020 00:53
Исполнитель Робот передвигается по клетчатому полю, выполняя команды, которым присвоены номера: 1 — на клетку вверх, 2 — на клетку вниз, 3 — на клетку вправо, 4 — на клетку влево....
strukserzh strukserzh  18.03.2020 00:52
Вкажіть правильно записані команди 1 x:=floattostr(edit1.text); 2 x:=strtoint(edit1.text); 3 x:=strtofloat(edit1.text) 4 x:=strfloat(edit1.text); 5 x:=strtofloat(edit1.text);...
sevara17 sevara17  17.06.2020 10:15
Какая информация хранится в кэш-памяти?...
Mila672 Mila672  17.06.2020 10:31
Укажите какие типы данных не может содержать отдельная ячейка таблицы: А)Растровый рисунок Б)Оставаться пустой В)число Г)текст...

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