Ответы
Ответ дал:
0
var
k,raznost: real;
begin
write('Введите К ');
readln(k);
writeln('Целая часть - ', int(k));
writeln('Дробная часть - ', frac(k));
raznost:= int(k)-frac(k);
writeln('Результат ',raznost );
end.
k,raznost: real;
begin
write('Введите К ');
readln(k);
writeln('Целая часть - ', int(k));
writeln('Дробная часть - ', frac(k));
raznost:= int(k)-frac(k);
writeln('Результат ',raznost );
end.
Ответ дал:
0
var
k,raznost: real;
begin
write('Введите К ');
readln(k);
writeln('Целая часть - ', int(k));
writeln('Дробная часть - ', frac(k));
raznost:= int(k)-frac(k);
writeln('Результат ',raznost );
end.
k,raznost: real;
begin
write('Введите К ');
readln(k);
writeln('Целая часть - ', int(k));
writeln('Дробная часть - ', frac(k));
raznost:= int(k)-frac(k);
writeln('Результат ',raznost );
end.
Ответ дал:
0
pascalABC
Вас заинтересует
1 год назад
6 лет назад
8 лет назад