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 раз
3Dпринтер :печатают вещи, в нём сложные настройки .обычный принтер :печатает на бумаге печатает рисунки и тексты .схожесть:они оба печатают с принторами нужно работать на компьюторе