Ответы
Ответ дал:
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
Вас заинтересует
2 года назад
2 года назад
6 лет назад
6 лет назад
9 лет назад