Составить блок-схему и написать программу: Дано натуральное число. Найдите число десятков в его десятичной записи ( то есть вторую справа цифру его десятичной записи)
Answers & Comments
задушу
Program P1; var a, n:longint; begin readln(n); a:=(n mod 100); a:=(a div 10); writeln(a); end.
тип переменной longint означает натуральное число , просто более большее
Answers & Comments
var
a, n:longint;
begin
readln(n);
a:=(n mod 100);
a:=(a div 10);
writeln(a);
end.
тип переменной longint означает натуральное число , просто более большее