Pascal abc.
Программа прикреплена к ответу
_______________________________
<span>var a:array[1..100] of integer;
i,n,s,k:integer;
sr:real;
begin
write('введите кол-во эл-тов массива: ');read(n);
for i:=1 to n do begin a[i]:=random(60); write(a[i]:4);end;
for i:=1 to n do
if (a[i] mod 2=0) and (i mod 2<>0) then begin s:=s+a[i]; inc(k); end;
writeln;
writeln('срзнач= ',s/k:4:2);
end.</span>
Цикл «for k := 0 to 8 do» выполняется девять раз. Каждый раз переменная s уменьшается на 4. Поскольку изначально s = 50, после выполнения программы получим: s = 50 − 9 · 4 = 14.
#include <iostream>
using namespace std;
void main(){
int a,v,s;
cout<<"Input a: ";
cin>>a;
v = a*a*a;
s = 6*a*a;
cout<<"Ob'em: "<<v<<endl; //оператор endl - переносит каретку на новую строку
cout<<"Ploshch.: "<<s<<endl;
system("pause"); //останавливает выполнение программы до нажатия любой клавиши
}
Программа на скрине, чётное число это такое число которое делится без остатка на два, в паскаль чтобы определить остаток от числа нужно использовать mod
<span>Из указанных утверждений выберите те значения которые истинные 1) ord('ё')>ord('z') 2) truesqr(1) 4) sqr(3)=sqrt(81)
2</span>