Question

1) Записать логические выражения, которые имеют значение "Истина" только при выполнении указанных условий:
х > 2 и у > 3

2) Записать условие, которое является истинным, когда каждое из чисел А, В, С кратно трем

3) Даны радиус круга и сторона квадрата. У какой фигуры площадь больше? Составьте программу

4) Напечатать числа следующим образом:
13 13,2
12 12,2
……
7 7,2

5) Составьте программу: сумму кубов всех кратных 6 из чисел от 40 до 140

!! :((

Answer 1

1)x = (input('x= '))

y = (input('y= '))

z = (input('z= '))

c = ((x % 3 == 0) and (y % 3 == 0) and (z % 3 == 0))

print(

else:

print

2)uses crt;

var x,y:real;

   f1,f2:boolean;

begin

clrscr;

writeln('Введите 2 числа:');

readln(x,y);

f1:=(x>2)and(y>3);

f2:=(x>1)and(y>-2);

writeln(f1);

write(f2);

readln

end.

3)uses crt;

var a,r:real;

begin

clrscr;

write('Введите сторону квадрата и радиус круга-> ');

readln(a,r)

if sqr(a)>pi*sqr(r) then write('У квадрата') else write('У круга');

readln;

end.

5)uses crt;

Var a, i, n, S: integer;

Begin

Write('Vvedite n '); readln(n);

S:=0;

For i:=40 to 140 do

 begin

 read(a);

 if (a mod 6 =0) then S:=S+a;

 end;

Writeln(S);

End.

Answer 2

1)

x = 3

y = 4

x > 2 and y > 3:

2)

all((A%3==0, B%3==0, C%3==0))

Или вместо all использовать and

3)

from math import pi

r = 23 # Радиус

a = 23 # сторона квадрата

S1 = pi * r**2

S2 = a**2

if S1 > S2:

   print("У круга площадь больше")

else:

   print("У квадрата площадь больше")

4)

summ = 0

for i in range(40, 141):

   if i%6==0:

       summ += i**3