Как реализовать программу в паскаль которая из одного 4-хзначного делает два 2-хзначных?

Question

[Slava04]

Кто может подсказать как реальзивать программу которая из одного 4-хзначного числа делает два 2-хзначных. Например 6587 => 65 87

Answer 1

[Александр]

a:=6587;
b:= a div 100;//65
c:= a mod 100;//87

Comments

[Slava04]

А не могли бы полный код, если вам не сложно?)

[Hemul GM]

Slava04, совесть имей. Это и так уже рабочий код

[Slava04]

Hemul GM, Просто до этого я никогда не работал с паскалем и не знаю как правильно должен быть оформлен код.

[Александр]

Только ничего не меняй, а то не будет работать))))

program FuckingSchool;
var a,b,c: integer;
begin
    read(a);//Ввод числа
    b:= a div 100;
    c:= a mod 100;
    //Выыод чисел
    writeln(b);
    writeln(c);
end.

[Slava04]

Александр, А как реализовать так чтотбы на выходе было не 6568 => 65 68
А получалось 6568 => 68 65

[Александр]

Ты вообще понимаешь как работает программа? Что значит операция div и mod ? Почитай про них пожалуйста - целочисленное деление и остаток от целочисленного деления.

[Slava04]

Александр, В том то и дело, что я никогда не работал в паскале. Но мне нужно написать программу именно в паскале которая из одного 4-хзначного числа делает два 2-хзначных. Например 5678 => 58 76.
не могли бы помочь в последний раз пожалуйста?))

[Александр]

посмотрим даст ли кто-то другой ответ))) Если нет - то после нового года напишу.

[Александр]

program FuckingSchool;
var a,b,c : Integer;
var n: String;
begin
    read(a);
    Str(a, n);
    Val(copy(n,1,1)+copy(n,4,1),b);
    Val(copy(n,3,1)+copy(n,2,1),c);
    writeln(b);
    writeln(c);
end.