Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
Вроде Ц:=8.7
Объяснение:
я так думаю хотя не сильно уверен
uses crt; var i,s: integer; begin i: =2; s: =1; while i< =10 do begin s: =s*i; i: =i+2; end; write(s); end.
program xxx;
var a,b,c : string;
begin
write('введите название 1 фигуры-');
readln (a);
write('введите название 2 фигуры-');
readln (b);
write('введите название 3 фигуры-');
readln (c);
writeln (' фигуры: ',a,b,c);
readln
end.
Популярные вопросы