Сходство графического редактора Paint и графического редактора среды Scratch
207
416
Ответы на вопрос:
на pascal
var x, y: integer;
begin
readln(x);
y : = 0;
if (x > 0) and (x < 5) then
y : = 2 * x;
if x = 0 then
y : = 0;
if (x < 0) and (x > -5) then
y : = 3 * x;
writeln(y);
end.
Популярно: Информатика
-
tahmina917.03.2023 12:40
-
edomokurov27.07.2022 23:48
-
волосы124.02.2021 09:14
-
KARYCY79830.05.2022 10:27
-
sanjabr82oymx7f21.08.2022 05:03
-
LimOonka10.04.2023 12:42
-
Алина9999999999999910.06.2022 06:37
-
AndreySolmikov15.07.2021 18:37
-
TretyakovaUlyana02.07.2020 21:55
-
Sofiya150928.11.2022 11:17