Var
ch,otv,perv,last:Integer;
begin
WriteLn('Введите число');
readln(ch);
last:=ch mod 100;
ch:=ch div 100;
perv:= ch div 10;
ch:=ch div 10;
otv := perv*1000+4*100+last;
WriteLn('Ответ: ',otv)
end.
пж как лучший
Где скрытая проводка. Есть-ли Устройство Защитного Отключения от поражения электрическим током, какое, и исправное-ли оно. Нужно Электромеханическое, не электронное
Такжен, информация по безопасной работе с электричеством и информация, куда звонить при повреждении газовых и водопроводных труб Главное нужно знать, что вы хотите получить в результате ремонта, и сколько вы согласны на это потратить денег и времени.
<span>Если денег много - то знания могут быть минимальными, чем меньше денег - тем больше вы должны знать и уметь)</span>
Еелплдадвжкждккдадажжадададпжпдададаадпдеддаажажажажад
Умеренный климатический пояс
Var a,b:real;
begin
write('Введите катеты: ');
read(a,b);
writeln;
write('Гипотенуза = ',sqrt(sqr(a)+sqr(b)):0:2);
end.