1. a=10 ( не меняется значение)
2. a=12 (т.к. если 10>5 то а=12)
3. a=3 (если 10<5 то +15 иначе -7)
4. а=22 (тоже самое)
5. a=3 (тоже самое)
6. а=22 (удивительно, но все аналогично)

0 0

3 года назад

Найдите основание системы счисления и цифру x,если верно равенство:1x3+x34=412

kuska [1]

3х+34х=412
37х=412
х=412×37
х=15244

0 0

4 года назад

напишите класс, который принимает с клавиатуры целое положительное число и, если оно как минимум трехзначное и положительное, ум

Вадим Юрьевич Коркин [14]

type Cl = class
a:integer;
constructor Create(b:integer);
procedure P;
end;

constructor Cl.Create(b:integer);
begin
a := b;
end;

procedure Cl.P;
begin
if (a div 100 > 0) and (a > 0) then
begin
a := a - 1;
writeln('new a = ', a);
end;
end;

var
Obj:Cl;
a :integer;
begin
write('a = ');
readln(a);
Obj := Cl.Create(a);
Obj.P;
Readln;
Obj.Destroy;
end.

0 0

4 года назад

Составить программу проверяющую верно ли утверждение что произведение цифр введенного вами четырехзначного целого числа делится

maksimewe

begin

var n:=ReadInteger('n=');

var m:=(n div 1000) mod 10;

var p:=1;

while n>0 do

begin

p*=n mod 10;

n:=n div 10

end;

if (p mod 5 =0) and(p mod m<>0) then Print('Верно')

else Print('Неверно')

end.

0 0

3 года назад