1.
a = int(input("первое число"))
b = int(input("второе число"))
sum = 0
for i in range(a, b+1):
print(i*i)
5.
f1 = 1
f2 = 1
n = int(input())
for i in range(n):
f3 = f2+f1
f2 = f1
f1 = f3
print(f3)
4.
n = int(input())
fac = 1
for i in range(1, n+1):
fac*=i
print(fac)
2.
a = int(input())
b = int(input())
c = int(input())
d = int(input())
for i in range(10000, 100000):
if i%a == b or i%c==d:
print(i)
4 не знаю.
Program one;
Var a:array[1..9999] of rial; i,m,n,k:integer;
Begin
K:=1;
Readln (n);
For i:=1 to n do begin
Readln(a[i]) ;end;
For i:=1 to n do begin
If (a[i]>0) then a[i]:=a[i]*0,4;
If (a[i]=0) then a[i]:=0,5; If (a[i]>0) then k:=k*a[i];
If (a[i])<0) then m:=m+a[i];
End;
Writeln (k,m);
End .
2) 2 * 60 * 256 / (8 * 1024) = 3.75
3) 100 * лог_2(64) / 8 = 100 * 6 / 8 = 75
4) 3.5 * 1024 = <span>3584
5) 500 * 30 = 15000
</span>
Const n = 4;
var x, y, z: real;
i: integer;
begin
write('проходной балл = ');
readln(x);
for i := 1 to n do begin
write('оценка ', i, ' = ');
readln(z);
y := y + z;
end;
if y/n >= x then
writeln('поступил')
else
writeln('не поступил');
end.
// Вторая
var i, k: integer;
a, b: string;
begin
write('k = ');
readln(k);
write('строка = ');
readln(a);
for i := 1 to Length(a) do
if i mod k > 0 then
b := b + a[i];
writeln(b);
end.<span>
</span>
Var
a, b: real;
begin
readln(a, b);
writeln('P = ', 2 * (a + b));
writeln('S = ', a * b);
end.
2)
var
a, b, c: real;
begin
readln(a, b, c);
writeln('cos(alpha) = ', (b * b + c * c - a * a) / (2 * b * c));
writeln('cos(beta) = ', (a * a + c * c - b * b) / (2 * a * c));
writeln('cos(gamma) = ', (a * a + b * b - c * c) / (2 * a * b));
end.