Предмет: Информатика,
автор: snejkovaekaterina
Помогите решить Задаачу по Паскалю
Приложения:

Ответы
Автор ответа:
0
var x, y: Integer;
begin
x := -3;
repeat
if (x < 0) then writeln('При X = ', x, ' y = ', 2 * x);
if (x = 0) then writeln('При X = ', x, ' y = ', 0);
if (x > 0) then writeln('При X = ', x, ' y = ', 0.5 * x);
x := x + 1;
until (x > 8);
end.
Проверил =)
begin
x := -3;
repeat
if (x < 0) then writeln('При X = ', x, ' y = ', 2 * x);
if (x = 0) then writeln('При X = ', x, ' y = ', 0);
if (x > 0) then writeln('При X = ', x, ' y = ', 0.5 * x);
x := x + 1;
until (x > 8);
end.
Проверил =)
Похожие вопросы
Предмет: Геометрия,
автор: scaarleeet
Предмет: Русский язык,
автор: mirandaaxmetova
Предмет: Геометрия,
автор: geraFenafen3
Предмет: Алгебра,
автор: Nikita20010
Предмет: Математика,
автор: Джулера