var x,y,z:Integer;
begin
for x:=1 to 9 do
for y:=0 to 9 do
for z:=0 to 9 do
if 3*(1000+x*100+y*10+z)=x*1000+y*100+z*10+1 then Writeln(1,x,y,z);
Readln;
end.
В предыдущем вопросе я написала решение.
program z;
var a,b,c,d,e,x,g,h:integer;
begin
write('Введите пятизначное число');
read(x);
a:= x mod 10;
b:= x mod 100;
b:= b div 10;
c:= x mod 1000;
c:= c div 100;
d:= x mod 10000;
d:= d div 1000;
e:= x mod 100000;
e:= e div 10000;
if a mod 2=0 then h:=a
else g:=a;
if b mod 2=0 then h:=h+b
else g:=g+b;
if c mod 2=0 then h:=h+c
else g:=g+c;
if d mod 2=0 then h:=h+d
else g:=g+d;
if e mod 2=0 then h:=h+e
else g:=g+e;
writeln(' Сумма нечётных цифр равна ', g);
write(' Сумма чётных цифр равна ', h);
<span>end.</span>
// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
var s:=ReadlnString('Введите текст:');
Writeln('Слова, в которых совпадают первая и последняя буквы:');
s.ToWords.Where(x->x[1]=x[x.Length]).Println(NewLine)
end.
<u><em>Тестовое решение</em></u>
Введите текст: космос азбука баобаб импульс озеро довод конец
Слова, в которых совпадают первая и последняя буквы:
азбука
баобаб
озеро
довод
0.345= 0.011100101
24.025= 10100.000010101
0.25= 0.010101