С клавиатуры вводится вещественное число , где 3 разряда в целой части и 2 разряда в дробной. Найти количество десятков и значение первой цифры числа после запятой — Pascal(Паскаль)

uses crt;
var a:real;
begin
ClrScr;
Readln(a);
Writeln('K=',trunc(a) div 10 mod 10);
Writeln('P=',trunc(a*10) mod 10);
Readln;
end.

Похожие записи/страницы:

Leave a Comment

44 − 39 =