1) Записать логические выражения, которые имеют значение "Истина" только при выполнении указанных условий:
х > 2 и у > 3
2) Записать условие, которое является истинным, когда каждое из чисел А, В, С кратно трем
3) Даны радиус круга и сторона квадрата. У какой фигуры площадь больше? Составьте программу
4) Напечатать числа следующим образом:
13 13,2
12 12,2
……
7 7,2
5) Составьте программу: сумму кубов всех кратных 6 из чисел от 40 до 140
!! :((
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.
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