Var a,b:real;
Begin
Write('Введите два числа: ');
ReadLn(a,b);
if a > b then WriteLn(a*3)
else WriteLn(b*3);
Write('Введите три числа: ');
Read(a,b);
if a > b then a:=b;
ReadLn(b);
if a > b then a:=b;
WriteLn(a-10);
End.
Пример работы программы:
Введите два числа: 1 3
9
Введите три числа: 2 1 3
-9
Uses crt;
var n,mult,i,ans:integer;
begin
read(n);
mult:=1;
for i:=2 to n do
mult:=mult*i;
while mult mod 10=0 do begin
inc(ans);
mult:=mult div 10;
end;
writeln(ans);
<span>end.</span>
П-8F, е-5а, р-e0. в-a2, о-ae. е-5а, С-91, е-5а, н-AD. т-E2. я-EF. б-а1, р-е0, я-EF.
1000 0101 0000 0010 0101 1001 0001 0101 0010 0001 0000
Программа выводит s=402
Описание программы :
Объявление целых переменных s,k
Присвоение нач. значения s=500
Цикл по k от 4 до 10
В цикле из текущего значения s вычитается удвоееное значение k и присваивается s
Вывод s
Извини меня но я не понимаю-не знаю. Так бы я тебе помог.