Brasida
7 год назад
Помогите, прошу!!! Программирование на языке Pascal, используя Case
Ввести число ( от 1 до 4)
если число = 1 то вывести окружность,
если - 2, то вывести квадрат,
если - 3, вывести ромб,
если - 4, вывести параллелограмм.
ОТВЕТЫ
Nagitakib
Jul 19, 2019
Var a:integer;
begin
write(a = );
readln(a);
case a of
1: writeln(окружность);
2: writeln(квадрат);
3: writeln(ромб);
4: writeln(параллелограмм);
else writeln(ошибка ввода);
end;
end.
Пример:
a = 3
ромб
begin
write(a = );
readln(a);
case a of
1: writeln(окружность);
2: writeln(квадрат);
3: writeln(ромб);
4: writeln(параллелограмм);
else writeln(ошибка ввода);
end;
end.
Пример:
a = 3
ромб
269
Смежные вопросы:
