Если цифра сотен равна 8 или 9, то число домножить на количество десятков, если число сотен от 3 до 5, то у числа оставить цифры сотен и десятков, в противном случае из исходного числа вычесть число сотен? составьте
// PascalABC.NET 3.0,сборка 1073 const n=10; var a,b:array[1..n] of integer; i,p,k,max:integer; begin Randomize; max:=-200; k:=0; Writeln(' № A B AixBi'); Writeln(''); for i:=1 to n do begin a[i]:=Random(21)-10; b[i]:=Random(21)-10; p:=a[i]*b[i]; Writeln(i:2,a[i]:4,b[i]:4,p:5); if p<0 then begin Inc(k); if p>max then max:=p end end; Writeln(''); Writeln('Количество AixBi<0 равно ',k); Writeln('Максимум среди этих произведений равен ',max); end.
var
a,s,d,e : integer;
begin
readln (a);
s := a div 100; //Узнаем цифру сотен
d := (a div 10) - (a div 100) * 10; //узнаем цифру десятков
e := a mod 10; //узнаем цифру единиц
case s of
8,9 : a := a * d;
3..5 : a := s * 10 + d;
else
a := a - s;
end;
writeln (a);
end.