Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program sir; var y,x,h: real; beginx: =280; h: =0.1; while h< =1 do begin y: =x*h; writeln('цена за ',h*1000,' грамм ',y,' руб'); h: =h+0.1 end; end.
var alpha: real;
begin
read(alpha);
if alpha > 90 then write("tupougolnyj");
if alpha = 90 then write("prjamougolnyj");
if alpha < 90 then write("ostrougolnyj");
end.
1) 6 (худший вариант - 5+1)
2) 4 (худший вариант - 3+1)
3) 7 (худший вариант - 5+2)
4) 5 (худший вариант - 3+2)
Популярные вопросы