Разветвление в цикле.
Вариант 4
Написать программу на алгоритмическом языке PASCAL с использованием любого оператора цикла.
3 комментария:
0 или 4?
Ну, 4 так 4)
4)
0 или 4?
Ну, 4 так 4)
4) Ответы
Гость Ну... Как-то так)
var
x, y: real;
begin
x := 0.5;
while x <= 25 do
begin
if x > 20 then
y := sin(x)
else
if x <= 5 then
y := sqr(cos(x))
else
y := sqrt(x);
writeln('y(', x, ') = ', y);
x := x + 1.5;
end;
end.
3 комментария:
нуу.. надеюсь 3-ку мне поставят)))
Бида...
огромное спасибо тебе.
нуу.. надеюсь 3-ку мне поставят)))
Бида...
огромное спасибо тебе. Похожие вопросы
Информатика
Что означает эта схема? ( отметь нужное)...
Информатика
Составить алгоритом 'утро,сбор в школу,...
Список предметов
