print('Это действие будет повторяться 10 раз!')
print('Это действие будет повторяться 10 раз!')
print('Это действие будет повторяться 10 раз!')
print('Это действие будет повторяться 10 раз!')
print('Это действие будет повторяться 10 раз!')
print('Это действие будет повторяться 10 раз!')
print('Это действие будет повторяться 10 раз!')
print('Это действие будет повторяться 10 раз!')
print('Это действие будет повторяться 10 раз!')
print('Это действие будет повторяться 10 раз!')
Объяснение:
Команда print отвечает за вывод текста, итого текст будет выводиться 10 раз
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
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
var b:=(a.Where(t->t<0)+a.Where(t->t>=0)).ToArray; b.Println
end.
Пример
n= 16
19 13 8 -50 28 13 -34 -7 13 -41 37 -34 34 -23 14 21
-50 -34 -7 -41 -34 -23 19 13 8 28 13 13 37 34 14 21