СРОЧНО!!!
Написать программу для выделения цифр из четырехзначного натурального числа.
На языке Pascal
ДАЮ 20 БАЛЛОВ!
Ответы на вопрос
Ответил forj83n8h3ni38k9m
1
Ответ:
program n_4;
var n: Integer;
begin
ReadLn(n); WriteLn(n div 10 mod 100);
end.
не совсем. лучше мое возьми
Новые вопросы
var k,s,n:longint;
begin
readln(k); s:=0; n:=0;
repeat s:=10*s+k mod 10; k:=k div 10; inc(n) until k=0;
repeat writeln(s mod 10); s:=s div 10; dec(n) until n=0;
end.