Program n1;
var F: array[1..14] of integer;
i,k: integer;
begin
randomize;
write('массив: ');
for i:=1 to 14 do begin
F[i]:=random(23)-11;
write(F[i],' ');
end;
writeln;
k:=0;
for i:=1 to 14 do if F[i] mod 5=0 then k:=k+1;
write('кол-во эл. крат. 5: ',k);
end.
#include <iostream>
using namespace std;
int main(){
//n - число s -показатель
int n, s;
cin >> n >> s;
//for думаю считается
for(int i = 1; i!=s; i++)
n = n* n;
cout << n;
return 0;
}
Паскаль АВС:
<span>
Числа a и b имеют разную четность.
if (a mod 2) <> (b mod 2) then
Одно из чисел a и b положительно.
</span><span><span>if (a >0) or (b >0) <span>then
</span></span>Одно из чисел a и b является квадратом другого.
if (a=b*b) or (b=a*a) then
Точка A(x,y) принадлежит первому или второму квадранту.
</span><span><span>if (y >0) <span>then
</span></span>Число a не больше среднего арифметического чисел b, c, d.</span>
<span>if (a <= (b+c+d)/3) <span>then</span></span>
Исходя из всего увы без обьяснения я просто очень долго прикидывал но яблони у француза абрикосы у немца вишни у поляка черешня у шведа груши у англичанина далее бегает француз в тенисс играет швед в гольф поляк пловец англичанин и прыгает немец потом на скрипке играет немец и швед поляк на рояле немец еще играет на трубе француз на барабанах (ударных) живут они короче француз слева от центра немец прямо в центре поляк с правого края швед с левого края а англичанин справа от центра теперь возраст французу 40 немцу 45 поляку 35 шведу 50 англичанину 30 и ответ тогда 50 лет шведу ав гольф играет поляк)))