Var a, b, c, d, s, k: integer;
begin
write('Введите k: '); readln(k);
a := k div 1000; {тысячи}
b := (k mod 1000) div 100; {сотни}
c := (k mod 100) div 10; {десятки}
d := k mod 10; {единицы}
s := d * 1000 + c * 100 + b * 10 + a;
writeln('k = ', k, #10, 's = ', s);
end.
Uses crt;
var input, betw:integer;
begin
readln(input);
betw := input;
betw := betw div 10;
betw := betw div 10;
betw := betw div 10;
writeln('Тысяч = ', betw);
betw := input;
betw := betw div 10;
betw := betw div 10;
betw := betw mod 10;
writeln('Сотен = ', betw);
betw := input;
betw := betw div 10;
betw := betw mod 10;
writeln('Десятков = ', betw);
betw := input;
betw := betw mod 10;
writeln('Единиц = ', betw); end.
Ответ:
Вот код
Объяснение:
Program pr2(output);
var x,y:real;
var i:integer;
begin
x:=-5;
writeln(' x y ');
for i:=1 to 21 do begin
y:=5-x*x/2;
writeln(x:4:1,'|',y:5:2);
x:=x+0.5
end;
end.
Var
A,B,C:real;
Begin
Write('A = ');ReadLn(A);
Write('B = ');ReadLn(B);
C:=A-B;
if C = 0 then WriteLn('Ввели равные числа')
else WriteLn('Ввели не равные числа')
End.