Объяснение: узнаем значение переменной с затем чему равна s при и узнаем четное ли оно или нет, затем входит ли оно в интервал и возводим в квадрат если совпадает если нет то в куб. Извените за частые изменения, стараюсь объяснить по понятней.
Sub maxZn()'заполнение массива Dim mas(20) S = "" Randomize For i = 1 To 20 mas(i) = Round(Rnd(100) * 100) S = S + Str(mas(i)) + "," Next i'поиск максимального числа и количества его повторений qty = 1 max = mas(1) 'предполагаем, что максимальное число в первом элементе массива For i = 2 To 20 If mas(i) = max Then qty = qty + 1 End If If mas(i) > max Then max = mas(i) qty = 1 End If Next i MsgBox "последовательность чисел " + S MsgBox "максимальное число " + Str(max) + "число повторений " + Str(qty) End Sub Sub test() Call maxZnEnd Sub
program calculator ;
var
A, s, p:Intger;
begin
readln(a);
S:= a div 2;
If s=0 then
If 1<a and a<20 then a:=sqr a else a:=a*a*a
WrteLn(a) ;
end.
Объяснение: узнаем значение переменной с затем чему равна s при и узнаем четное ли оно или нет, затем входит ли оно в интервал и возводим в квадрат если совпадает если нет то в куб. Извените за частые изменения, стараюсь объяснить по понятней.