1.
var i,k:integer;
begin
for i:=150 to 225 do
if i mod 7=0 then k:=k+1;
write(k)
end.
2.
var a,s:integer;
begin
read(a);
while a>0 do
begin
s:=s+a mod 10;
a:=a div 10
end;
if s mod 10=0 then write('Правда') else write ('Неправда')
end.
1) y:= (sqrt(ax+bx+c*c))/(15*x-sin x)
2) y:= -12*sqrt(xy*y+cos(a/2)
3) z:= (sin x+cos x)/sqrt(x*x+15)
4) S:=((26*k-m)/(6-4*k))-56*m*k
5) y:= x-sqrt((y*y+2)/2)+2*y
var
n : integer;
s : real;
begin
write('введите n ');
readln(n);
for var i := 10 to n do s += 1/i;
writeln('s = ', s);
end.
n должно быт n >= 10
1 - 2
2- 1
3- 3
4- 4
5- 5
Вроде так мы такое не изучали
Если что без обид
Ответ:
110101
Объяснение:
53=110101
Отметьте мой ответ как "лучший" пожалуйста!