Var
i,N,A,k:integer;
Begin
k:=0;
Write('N = ');Read(N);
For i:= 1 to N do
Begin
Read(A);
if (A mod 10 = 8) then k:=k+1;
End;
WriteLn(k);
End.
1) С
2) D
3) C
4) C
5) фото
6) С
7) С
8) B
9) B
10) C
11) D
12) B
13) B
14) C
15) A
16) A
Const N=11;
var i,d,k:integer;
begin
k:=0;
repeat
k:=k+N;
d:=0;
for i:=2 to 10 do if k mod i = 1 then d:=d+1;
until (d=9) or (K>32000);
if d=9 then writeln('Искомое число = ',K)
else writeln('Число не найдено');
<span>end.</span>
Uses crt;var i,n,s:integer;beginn:=0;writeln('vvedite chislo');readln(s);for i := 1 to s don:=n+i;writeln(n);readln;end.
Есть момент, связанный с y = корень(x) при x<0
Это притоверечит главному правилу корня, что подкоренное выражение больше 0, поэтому число x я умножаю на -1
#include <iostream>
#include <math.h>
using namespace std;
int main(){
setlocale(0,"rus");
float x,y;
cout << "введите значение x";
cin >> x;
if (x>0){ y = x-7 ;}
else if (x==0) {y = 3;}
else if (x<0) {y = sqrt(-1*x);}
cout << y;
return 0;
}