Var
a,b:Integer;
Begin
Read(a,b);
if (a mod b=0) or (b mod a=0) then Writeln('1')
else Writeln('0');
end.
Ответ:
900
Объяснение
на 5 четные заканчиваться не могут, значит только на 0
тогда на первом месте (тысячные) могут стоять 9 цифр, на втором и третьем (сотен и десятков) могут стоять по 10 цифр и на последнем (единиц) только 1 цифра
итого общее количество равно 9*10*10*1=900
Циклической,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
Function S(a,b,c:real):real;
Var p:real;
Begin
p:=(a+b+c)/2;
result:=Sqrt(p*(p-a)*(p-b)*(p-c))
End;
Var
a,b,c,q,w,h,d,x1,x2:real;
g:string; k:integer;
Begin
writeln('добро пожаловать в математический помощник!!! как дела?');
readln(g);
writeln('воспользоваться формулой Герона(1) высоту в прямоугольном треугольнике(2) найти корни квадратного уравнения(3)');
readln(k);
case k of
1: begin
Write('a = ');
ReadLn(a);
Write('b = ');
ReadLn(b);
Write('c = ');
ReadLn(c);
WriteLn('S = ',S(a,b,c));
end;
2: begin
writeln('введите проекции');
readln(q,w);
h:=sqrt(q*q+w*w);
writeln('высота=',h);
end;
3: begin
Writeln ('Введите коэффициенты квадратного уравнения: a,b,c');
Readln (A,B,C);
d:=b*b-4*a*c;
If d<0 Then Writeln ('Корней нет ')
Else
Begin
x1:=(-b+SQRT(d))/2/a;
x2:=(-b-SQRT(d))/2/a;
Writeln ('X1=',X1:8:3,' X2=',X2:8:3);
end;
end;
end;
end.
Пример:
добро пожаловать в математический помощник!!! как дела?
ok
воспользоваться формулой Герона(1) высоту в прямоугольном треугольнике(2) найти корни квадратного уравнения(3)
1
a = 3
b = 4
c = 5
S = 6
PS. Все формулы в программе оставлены без изменения!