Text='Hello, world!'
print(text[text.rfind(' ')+1:]+text[text.find(' '):text.rfind(' ')+1]+text[:text.find(' ')])
program dz8;
uses crt;
var a:array [1..5,1..5] of integer;
i,j,s:integer;
Begin
TextColor(Green);
//Заполнение и вывод массива
for i:=1 to 5 do
begin
for j:=1 to 5 do
begin
a[i,j]:=random(21)-10;
write(a[i, j]:4);
end;
writeln;
end;
writeln;
//Подсчет и вывод суммы каждой строки
for i := 1 to 5 do
begin
s := 0;
for j := 1 to 5 do
s := s + a[i, j];
writeln('Сумма ', i, ' строки = ', s);
end;
writeln;
end.
var
a,k :integer;
begin
repeat
begin
writeln ('введи число');
read (a);
if (a mod 2 <>0) then k:=k+1;
end;
until a=0;
writeln ('количество нечетных чисел k=',k);
end.
Это невозможно. Ведь есть вероятность того,что карты рубашкой вверх не будут в 2 группах одинакового количества.
640 * 200 = 128 000 пикселей