Program sadadasf;
var i,k: integer;
begin
k:=0;
For i:=1 to 50 do
If (i mod 5=0) or (i mod 7=0) then k:=k+i;
Writeln('Сумма этих чисел: ',k);
<span>end.</span>
Var n,m : Integer;
Begin
Write (' введите N: '); Readln (n);
Write (' введите M: '); Readln (m);
Writeln ((n+m)*(m-n+1) div 2);
end.
===== PascalABC.NET =====
begin
var a := ArrRandom(30, 2, 5);
a.Println.Count(p -> p > 3).Println
end.
Ответ:
1. Шток с рукояткой
2. Чтобы сжатый под давлением воздух выходил не в атмосферу, а через трубку -золотник -в камеру
1)False
так как а=10,а в умове єсли a<5 то идет дале
2)а =12
3)3
4)22