1)
var a:array [1..100] of integer;
n,i:integer;
begin
for i:=10 to 99 do begin
a[i]:=i;
if (a[i] mod n=0) then writeln(a[i]);
end;
end.
2)
var a:array [1..100] of integer;
n,k,i,x,y,z: integer;
begin
readln(n,k);
for i:=n to k do begin
a[i]:=i;
x:=a[i] mod 10;
y:=a[i] div 10;
z:=y mod 10;
y:=y div 10;
if (x=y) or (x=z) or (y=z) then writeln(a[i]);
end;
end.
3)
var a,n,an,na: integer;
begin
readln(a,n);
if (a>0) and (b>0) then begin
an:=a*10+n;
na:=n*10+a else writeln('Введены неверные числа!');
end;
end.
Первая и вторая цифры нечетные - False
Вторая или третья цифра четная - True
Последняя цифра четная или нечетная - True
Не четвертая цифра делится на 5 - True
Объяснение:
345678
3 - нечетная цифра;4 - четная цифра.Первая и вторая цифры нечетные - False, так как должны быть истинны оба высказывания.
345678
4 - четная цифра;5 - нечетная цифра.Вторая или третья цифра четная - True, так как должно быть истинно одно из высказываний
345678
8 - четная цифра.Последняя цифра четная или нечетная - True, так как должно быть истинно одно из высказываний
345678
Не четвертая цифра делится на 5 - True, так как на 5 делится третья цифра
print(*[i for i in range(105,1000,7) if sum(map(int,list(str(i%7==0])
Объяснение: