я выбирал задания у которых больше всего .
надеюсь тебе это решение
1
var i:integer;
begin
for i:=2 to 100 do
if(i mod 2 = 0) then writeln(i);
end
2
Var
a: Real;
i,n: Integer;
Begin
Writeln
a:=0
for i:=1 to n do
a:= a + sgr(i);
end
Writeln
Readln
end.
6
Var
N1, N2, M, i: Longint
Begin
Write( Wwedite N1= `)
ReadLn (N2)
if (N1=0) and (N2=0) then writeLn;
if N1>N2 then M:= N1 else M:= N2;
i:=M -1;
Repeat
Inc(i);
Until ((i mod N1)=0) and ((i mod N2)=0);
WriteLn ;
end.
12.
program N99210889
const n=10
s: longint = 1
var i: byte;
begin
s: = s+ Term;
Term: = Term×2
end
writeln(s)
readln
end.
dom = int(input()) #вводим дом
school = int(input()) #вводим школу
teleport = int(input()) #вводим телепорт
summa = dom + school
summa1 = school - dom
summa2 = school - dom - teleport
if teleport == summa1: #если телепорт равен расстоянию между школой и домом
print("0")
elif teleport < summa1: #если телепорт меньше чем расстояние между школой и домом
print(summa2)
elif teleport > school and (teleport - school) < summa1: #если телепорт больше чем расстояние до школы но не больше чем разница между школой и домом
print(teleport - school)
elif teleport > school and teleport > summa1: #если телепорт больше чем расстояние до школы и больше чем разница между школой и домом
print(summa1)
Объяснение:
var a:array[1..10] of integer;
i,s:integer;
Begin
randomize;
for i:= 1 to 10 do begin
a[i]:= random(100);
s:=s+a[i];
end;
writeln(s);
End.
var a:array[1..10] of integer;
i,mk,pk,s,p:integer;
Begin
randomize;
p:=1;
for i:= 1 to 10 do begin
a[i]:= random(30+10)-10;
if a[i]>=0 then begin
pk:=pk+1;
s:=s+a[i];
end
else begin
mk:=mk+1;
p:=p*a[i];
end;
end;
writeln(pk,s,mk,p);
End.