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 раз
350
Объяснение:
Индия = 800
Испания = 600
Испания ИЛИ Индия = 1050
Испания ИЛИ Индия = Испания + Индия - Испания И Индия
Испания И Индия = Испания + Индия - Испания ИЛИ Индия
Испания И Индия = 800 + 600 - 1050 = 350