1)uses crt; var x,a,b,c,i: integer; begin cls; write('введите число: '); readln(x); a: = x div 100; b: = (x - a*100) div 10; c: = (x - a*100 - b*10); if (a=b) or (a=c) or (b=c) then writeln('есть одинаковые цифры') else writeln('одинаковых цифр нет'); end.2)uses crt; var x: real; begin cls; write('сумма покупки: '); readln(x); if x> 1000 then x: =x-(x*0.1); writeln('стоимость с учётом возможной скидки ',x); end.
1) var a, b: real; begin readln(a, b); if (a > b) then writeln(a) else if (a < b) then writeln(b) else writeln('a = b'); end.
2) var a, b, c: integer; begin readln(a); b := a mod 100 div 10; c := a mod 10; a := a div 100; write('a) '); if (a > c) then writeln(a) else if (a < c) then writeln(c) else writeln('='); write('b) '); if (a > b) then writeln(a) else if (a < b) then writeln(b) else writeln('='); write('c) '); if (c > b) then writeln(c) else if (c < b) then writeln(b) else writeln('='); end.
uses crt;
var a,i:real;
begin
readln(a);
I:=a;
while a<>-9999
do begin
readln(a);
if i<a then i:=a;
end;
writeln(i);
end.
(Для справки -9999 число для окончания цикла)