№12. Записать логическое выражение определяющее, что число А является трёхзначным.
ответ: if len(str(A)) == 3: print(True)
№13. Записать условие, которое является истинным, когда только одно из чисел A, B и С меньше 45.
ответ: if (A < 45 and B >= 45 and C >= 45) or (B < 45 and A >= 45 and C >= 45) or (C < 45 and B >= 45 and A >= 45): print(True)
№14. Записать условие, которые является истинным, когда целое А не кратно трём и заканчивается нулем.
ответ: if not A % 3 == 0 and A % 10 == 0: print(True)
№15. Записать логическое выражение, которое определяет, принадлежит ли число А интервалу от -137 до -51 или интервалу от 123 до 55.
ответ: if (A > -137 and A < -51) or (A > 55 and A < 123): print(True)
1 программа:
var x, y, t:integer;
begin
for x:=3 to 15 do begin
writeln('x = ', x);
t := x - 2;
y := 7*t*3-6*t+10;
writeln('y = ', y);
writeln('');
end;
end.
2 программа:
const pass ='45xlua';
var x:string;
a:boolean;
begin
a:= false;
while a<>true do begin
writeln('Введите пароль');
readln(x);
if x = pass then begin
a:=true;
writeln('Пароль верный');
end
else
writeln('Пароль неверный, введите еще раз');
writeln('');
end;
end.
4 программа:
var a, a1, a2, x, kol:integer;
begin
writeln('Введите четырёхзначное число');
readln(a);
x := a;
while x<>0 do begin
x:= x div 10;
kol:= kol + 1;
end;
if (kol = 4) then begin
a1 := a div 100;
a2:= a mod 100;
writeln(a1+a2);
end
else
writeln('Число не является четырёхзначным');
end.
