Предмет: Информатика,
автор: ikryteri
СРОЧНО!!!
Написать программу для выделения цифр из четырехзначного натурального числа.
На языке Pascal
ДАЮ 20 БАЛЛОВ!
Ответы
Автор ответа:
1
Ответ:
program n_4;
var n: Integer;
begin
ReadLn(n); WriteLn(n div 10 mod 100);
end.
не совсем. лучше мое возьми
Похожие вопросы
Предмет: Другие предметы,
автор: Муся100
Предмет: Русский язык,
автор: Балжан1111
Предмет: Українська мова,
автор: danilova1990
Предмет: Английский язык,
автор: DANYA2123
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.