Question

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

Информатика

Answer 1

//Я знаю, можно долго считать это на пальцах, но это ведь не наш путь
//данная программа возвращает верный ответ
//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

Answer 2

спасибо огромное! я на "пальцах считал" у меня так же получилось, а это то что нужно!!! :)