Задано трехзначное число ABC. Если взять его последнюю цифру и поставить перед первой, то новое число будет на 12 больше удвоенного исходного числа. Напишите это число, если C=4
Информатика
Информатика
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Verified answer
//Я знаю, можно долго считать это на пальцах, но это ведь не наш путь//данная программа возвращает верный ответ
//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