Надо создать программу в Pascal, помогите пожалуйста, срочно!!!
Вести первую букву геометрической фигуры (ш, к, п). Напечатать название этой фигуры (шар, куб, призма)
Вести первую букву геометрической фигуры (ш, к, п). Напечатать название этой фигуры (шар, куб, призма)
More Questions From This User See All
Answers & Comments
Verified answer
Varc: char;
begin
read(c);
case c of
'ш': write('шар');
'к': write('куб');
'п': write('призма');
end;
end.