Составить блок-схему к данному коду var min,max,i,m,n: integer begin readln(n); max: =-maxint-1; min: =maxint for i: =1 to n do begin readln(m); if(m> max)then max: =m; if(m end; writeln(max,' ',min); end.

215

467

Посмотреть ответы 1

Ответы на вопрос:

mira23141

Информатика

4,6(68 оценок)

Алгоритм: просим пользователя ввести площадь квадрата sk и площадь окружности sr вычислить длину стороны квадрата вычислить длину диагонали квадрата вычислить радиус окружности если длина диагонали с меньше или равна радиусу окружности r, то квадрат поместится в круге если радиус r меньше или равен длине стороны квадрата, то окружность поместится в квадрате. в противном случае фигуры не поместятся одна в другой. вот реализация алгоритма на языке basic: 10 rem площадь круга и квадрата 20 input "введите площадь круга"; sr 30 input "введите площадь квадрата"; sk 40 a=sqr(sk) 50 c=sqr(a^2 * 2) 60 pi=3.1415926 70 r=sqr(sr/pi) 80 if a> =r then print "круг поместится в квадрат": goto 110 90 if r> =c then print "квадрат поместится в круг": goto 110 100 print "фигуры не поместятся друг в друга" 110 print "": print 120 end