Задано трехзначное число ABC. Если взять его последнюю цифру и поставить перед первой, то новое число будет на 12 больше удвоенного исходного числа. Напишите это число, если C=4
Информатика

//Я знаю, можно долго считать это на пальцах, но это ведь не наш путь
//данная программа возвращает верный ответ
//Pascal ABC.NET Версия 2.2 Сборка 790
var a,b,bug,i:integer;
s,s1:string;
begin;
for a:=100 to 999 do
begin;
str(a,s);
str(a,s1);
insert(s[length(s)],s,1);
delete(s,length(s),1);
val(s,b,bug);
if (b-12=a*2) and (s1[3]=4) then writeln(a);
end;
end.

Ответ:204

Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!

Загрузить картинку