Дано трехзначное число. если в этом числе есть хотя бы одна цифра равная пяти, то приписать к этому числу справа две пятерки. если нет, то вывести сообщение «no». напишите алгоритм в паскале
Program znanija; var q,w,e,r,t:integer; znanijacom:integer; Begin read(znanijacom); q:=length(znanijacom); t:=znanijacom; for w:=1 to q do begin //Программа работает не только с трехзначными числами, что увеличивает возможность программы e:=znanijacom mod 10; if e=5 then r:=1; znanijacom:=znanijacom div 10; end; if r=1 then writeln(t,'55') else writeln('No'); End.
var q,w,e,r,t:integer; znanijacom:integer;
Begin
read(znanijacom);
q:=length(znanijacom);
t:=znanijacom;
for w:=1 to q do begin //Программа работает не только с трехзначными числами, что увеличивает возможность программы
e:=znanijacom mod 10;
if e=5 then r:=1;
znanijacom:=znanijacom div 10;
end;
if r=1 then writeln(t,'55') else writeln('No');
End.