Найди верный ответ на вопрос по предмету Информатика, если вы не получили ответа или никто не дал верного ответа, то рекомендуется воспользоваться поиском и попытаться найти ответ на свой вопрос среди похожих запросов.
Новые вопросы по предмету Информатика:
Var x, y, i: Real;
begin
i := 1;
write('x: ');
while (i = 2.1) do
begin
write(i:4:2, ' ');
i := i + 0.1;
end;
i := 1;
writeln();
write('y: ');
while (i = 2.1) do
begin
write(sin(i/2)/cos(i/2) + 2 * cos(i):4:2, ' ');
i := i + 0.1;
end;
writeln();
end.
Вот так, только числа округляются, чтобы влазили:)