Var i,p:integer; beginp:=1;for i:= 20 to 50 doif(i mod 5 = 0) then p:=p*i;writeln('Произведение чисел кратных 5: 'p);end.
program shegor2003;
var a:array[1..7,1..7] of integer;
i,j:integer;
begin
for i:= 1 to 7 do
for j:= 1 to 7 do
a[i,j]:=random(101)-50;
writeln('Исходный массив:');
for i:= 1 to 7 do begin
for j:= 1 to 7 do
write(a[i,j]:4);
writeln;
end;
for i:= 2 to 6 do
for j:= 2 to 6 do
if i+j<=8 then
a[i,j]:=99;
writeln; writeln('Преобразованный массив:');
for i:= 1 to 7 do begin
for j:= 1 to 7 do
write(a[i,j]:4);
writeln;
end;
end.
Ответ:MS PowerPoint, Mozilla Firefox, Grins, notepad++, inkscape,
Объяснение:
Ответ:
5б:
x = input("введите число: ")
y = ""
for i in range(len(x)):
y += (x[-i])
if x==y:
print ("Перевертыш")
else:
print ("Нет")
_________________________________________________
6:
x1 = int(input("x1: "))
y1 = int(input("y1: "))
x2 = int(input("x2: "))
y2 = int(input("y2: "))
R1 = (x1**2 + y2**2)**(0.5)
R2 = (x2**2 + y2**2)**(0.5)
if R1 > R2:
print ("2 ближе")
elif R2>R1:
print ("1 ближе")
else:
print("одинаково")
_____________________________________________
7:
a = int(input("1 сторона: "))
b = int(input("2 сторона: "))
c = int(input("3 сторона: "))
if (a>=b+c) or (b>=a+c) or (c>=b+a):
print("не существует")
elif a==b and b==c:
print ("Равносторонний")
elif a==b or b==c or a==c:
print ("Равнобедренный")
else:
print("Существует")
Объяснение:
Там все понятно
Var
i,j,s:integer;
a:array[1..10,1..10]of integer;
begin
writeln('Исходный массив:');
for i:=1 to 10 do
begin
for j:=1 to 10 do
begin
a[i,j]:=random(-10,10);
if (a[i,j]=0) and (i=j) then s:=s+1;
write(a[i,j]:3)
end;
writeln
end;
writeln('Число нулей на главной диагонали: ',s)
<span>end.</span>