Ну должно быть В*417525, т.е. Кол-во машин на стоимость одной (умножить)
Var sum,p,x,z:integer;
<span>begin </span>
<span>writeln('Введите трёхзначное число'); </span>
<span>read(x); </span>
<span>sum:=x mod 10 + x div 100 + x div 10 mod 10; </span>
<span>p:=(x mod 10) * (x div 100) * (x div 10 mod 10); </span>
<span>z:=(x mod 10 *100) + (x div 10 mod 10 *10) + (x div 100); </span>
<span>writeln('Сумма цифр =',sum); </span>
<span>writeln('Среднее арифметическое цифр =',sum/3); </span>
<span>writeln('Произведение цифр =',p); </span>
<span>writeln('После перестановки 1 и 3 цифр =',z); </span>
<span>end.</span>
Program u1;
var
x, p ,y, s, n: integer;
begin
readln(x,p,y);
s:=x;
n:= 0;
while (s < y) do
begin
s := s+trunc((s*p)/100);
n:= n+1;
end;
writeln(n);
end.
Пример:
100 10 500
18
Var
a:array[1..12]of integer;
m, n:integer;
Begin
a[1]:=31;a[7]:=31;
a[2]:=28;a[8]:=31;
a[3]:=31;a[9]:=30;
a[4]:=30;a[10]:=31;
a[5]:=31;a[11]:=30;
a[6]:=30;a[12]:=31;
Write('Введите номер месяца -> ');
Readln(m);
Write('Год високосный(1 - да || 0 - нет)?');
Readln(n);
if (m = 2) then Writeln(a[m] + n) else
Writeln(a[m]);
end.