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
Объяснение:
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
print('Это действие будет повторяться 10 раз!')
print('Это действие будет повторяться 10 раз!')
print('Это действие будет повторяться 10 раз!')
print('Это действие будет повторяться 10 раз!')
print('Это действие будет повторяться 10 раз!')
print('Это действие будет повторяться 10 раз!')
print('Это действие будет повторяться 10 раз!')
print('Это действие будет повторяться 10 раз!')
print('Это действие будет повторяться 10 раз!')
print('Это действие будет повторяться 10 раз!')
Объяснение:
Команда print отвечает за вывод текста, итого текст будет выводиться 10 раз
Var
A:integer;
Begin
WriteLn('Введите числа');
Read(A);
While A<>100 do
Begin
Read(A);
End;
WriteLn('Ввод окончен');
End.