5*, Дан радиус окружности. Составь программный код, кото- рый определит длину окружности (I) и площадь крута (S), Здесь π=3,14 (рис. 2). Теоретический материал Пример Результат 5 La 31.4 О. центр окружности S 78.4 градиус окружности L - длина окружности S - площадь крута d - диаметр окружности
Var x,y,z:integer; {описание переменных и их типа} begin writeln ('введи два числа'); {Вывод на экран сообщения-подсказки} readln (x,y); {считывание переменных} if x<0 then {проверка условия.} if y>x then z:=y {если условие истинно, то мы ищем большее из х и у. если у больше, то присваиваем z значение у} else z:=x {если же больше х, то присваиваем его значение} else {если условие ложно} if y>x then z:=x {то мы ищем меньшее из х и у. если у больше, то присваиваем z значение х} else z:=y; {если же больше х, то присваиваем значение у} writeln (z); {вывод результата на экран} end. {конец программы}
DIM A(6) RANDOMIZE TIMER FOR I = 1 TO 6 A(I) = INT(RND * 20) - 10 IF A(I) > 0 THEN S = S + 1 PRINT A(I); " "; NEXT I PRINT PRINT "S="; S
Новый паскаль АВС var a:array[1..6]of integer; i,s:integer; begin for i:=1 to 6 do begin a[i]:=random(-10,10); if a[i]>0 then s:=s+1; write(a[i],' ') end; writeln; writeln('Количество положительных: ',s) end.
Старый паскаль АВС var a:array[1..6]of integer; i,s:integer; begin for i:=1 to 6 do begin a[i]:=random(20)-10; if a[i]>0 then s:=s+1; write(a[i],' ') end; writeln; writeln('Количество положительных: ',s) end.
R= int(input('Введите радиус'))
p = 3.14
S = p*R*R
L = 2*p*R
print(round(L,2), '- длина окружности')
print(round(S,1), '- площадь окружности')