Напишите оператор присваивания, в результате выполнения которого целой переменной н присвоится значение цифры, стоящей в разряде сотен в записи положительного целого числа к ( например, если к= 28796, то н= 7). p.s язык Паскаль:)
Напишите оператор присваивания, в результате выполнения которого целой переменной н присвоится значение цифры, стоящей в разряде сотен в записи положительного целого числа к ( например, если к= 28796, то н= 7).
p.s язык Паскаль:)
Ответ(ы) на вопрос:
var n,k:integer;
begin
readln(k);
n:=(k mod 1000) div 100;
writeln(n);
end.
var n, k:integer;
begin
write('vpishite chisli');
read(k);
n:=(k mod 1000) div 100;
write(n)
Не нашли ответ?
Похожие вопросы