Информатика, опубликовано 2018-08-22 19:24:20 by Гость
Помогите, прошу!!! Программирование на языке Pascal, используя Case Ввести число ( от 1 до 4) если число = 1 то вывести окружность, если - 2, то вывести квадрат, если - 3, вывести ромб, если - 4, вывести параллелограмм.
Ответ оставил Гость
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
ромб
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на