Здравствуйте исправить код паскаль Вот задание (номер 5) Вот то что у меня получилось Program 4; const x=1.2; var y,x,sum:real; i:integer; function prog(b,k:integer):real; begin sum:=1; for i:=k to b do sum:=sum*((k+x)/x); c:=sum; end; begin y:=c(3,6)+(2*(c(1,8)*c(1,8)))+x; write('y:= ', y:1:5); end.
150
365
Ответы на вопрос:
var
n,a: integer;
begin
readln(n);
a: =(n mod 10)*1000+((n mod 100) div 10)*100 + ((n mod 1000) div 100)*10+ n div 1000;
if n> a then
writeln('число ', n, ' больше перевертыша ', a)
else
writeln('перевертыш ', a, ' больше числа ', n);
end.
Популярно: Информатика
-
Zhanaevakasiet25.02.2023 18:06
-
Zheksenova0107.02.2021 23:09
-
evakozyreva0320.04.2021 01:04
-
qqqlw003.07.2020 09:28
-
macshsav09.09.2022 01:48
-
Fokus12312309.04.2022 21:33
-
SofiCoRainbow119.05.2021 21:23
-
VodDamirVod10.08.2022 05:55
-
anyiugyo9e715.08.2021 13:59
-
Lilpump022831.05.2020 07:21