Program asd; uses crt; var a,b,c,max:integer; r:real; begin Write('Введите число A: '); Readln(a); Write('Введите число B: '); Readln(b); Write('Введите число C: '); Readln(c); If a>=b then max:=a else max:=b; If c>max then max:=c; r:=a+b+c; If (A>B) and (B>C) and (C>0) then Writeln('A= ',a*2,' B= ',b*2,' C= ',c*2); If (A<0) and (B<0) and (C<0) and (A<>B) and (B<>C) and (C<>A) then begin A:=max; B:=max; C:=max; Writeln('A= ',a,' B= ',b,' C= ',c); end else Writeln('Symma: ',r); end.
Var n,a:integer; b:boolean; begin b:=true; //"флаг", указывающий на результат readln(a); //вводим цифру readln(n); //вводим число while n>0 do //пока число не равно 0 if n mod 10=a then //mod 10 возвращает последнюю цифру числа begin b:=false; //если эта цифра равна а, тогда "флаг" меняет своё значение break; //и выходим из цикла end else n:=n div 10; {иначе посредством div 10 убираем самый правый разряд. Если левый аргумент меньше 10, он вернёт 0 и тем самым завершит цикл} if b=true then writeln('Да') else writeln('Нет'); {"флаг" остаётся true только если не встретилось совпадений в цикле} end.
uses crt;
var a,b,c,max:integer; r:real;
begin
Write('Введите число A: ');
Readln(a);
Write('Введите число B: ');
Readln(b);
Write('Введите число C: ');
Readln(c);
If a>=b then max:=a
else
max:=b;
If c>max then
max:=c;
r:=a+b+c;
If (A>B) and (B>C) and (C>0) then
Writeln('A= ',a*2,' B= ',b*2,' C= ',c*2);
If (A<0) and (B<0) and (C<0) and (A<>B) and (B<>C) and (C<>A) then
begin
A:=max;
B:=max;
C:=max;
Writeln('A= ',a,' B= ',b,' C= ',c);
end
else
Writeln('Symma: ',r);
end.