var a,b,n:real;
begin
writeln('vvedite chislo');
readln(a);
b=1;
n=b;
while b<a do
begin
if (a mod b = 0) then n:=n*b;
b:=b+2;
end;
writeln('n = ',n);
readln;
end.
11100(2) - 28 учеников
15(8) - 13 девочек
Мальчиков 28-13=15
Program abc;
uses crt;
var
a,b,c:integer;
begin
writeln ('Введите значение Первого числа (А)');
readln(a);
writeln ('Введите значение Второго числа (B)');
readln(b);
writeln ('Введите значение Третьего числа (C)');
readln(c);
If (a > b) and (b > c) then
begin
writeln ('Числа А, В, С отсортированы в порядке убывания: True');
end
else
begin
writeln ('Числа А, В, С отсортированы в порядке убывания: False');
end;
end.<span>
</span>
Calculi - дело,но калькулятор пошел от другого слова <span>calculātor «счётчик»</span>
Итак, алгоритм прост:
Площадь = а * б * с
<em>Периметр = а + б + с</em>
<em>Могу реализовать это же на паскале:</em>
<h3>
<em>var a,b,c,s,p:integer;</em></h3><h3>
<em>begin</em></h3><h3>
<em>read(a,b,c);</em></h3><h3>
<em>s:=a*b*c;</em></h3><h3>
<em>p:=a+b+c;</em></h3><h3>
<em>Write(s,' ',p);</em></h3><h3>
<em>end.</em></h3>
Если мой ответ вам помог - выберите его лучшим :)
Заранее спасибо