3 года назад

Составьте программу,которая удаляет из строки первые 5 символов и вставляет их в конец строки.

1 ответ:

0 0

Var
s: string;
n: integer;

begin
Write('Введите строку: ');
Readln(s);
n := Length(s);
s := Copy(s, 6, n - 5) + Copy(s, 1, 5);
Writeln(s)
end.

Тестовое решение:

Введите строку: 1234567890abcdef
67890abcdef12345

Читайте также

Пользователь компьютера может вводить в минуту 200 знаков.Мощность используемого алфавита равна 256.Какое количество информации

MaZaHaKeR73 [11]

При мощности алфавита 256 один знак = 1 байт, а следовательно:

200*5 = 1000 байт.

0 0

4 года назад

РЕШИТЕ ПОЖАЛУЙСТА1. Задана сторона a равностороннего треугольника. Вычислите высоту треугольника и его площадь.2.Дано действител

Tanya14 [2.5K]

1)
Формула: S := a*a*sqrt(3)/4;

2)
read(a);
b:=a*a;
a:=b*b*b;

3) if a mod 2=0 then writeln('chetnoye') else writeln('nechetnoye);
if a<0 then wtiteln('polozhitelnoye) else writeln('otrizatelnoe');

0 0

4 года назад

Написать программу на си Очень срочно!!! Задание: Дана квадратная матрица. Найти сумму четных элементов над побочной диагональю.

Сергей Игнатенко

что-то типа этого:

const n = 8, m = 8;
var
 A: array[1..n,1..m] of integer;
 i, j, sum, product: integer;
 isnotnull: boolean;
begin
 randomize;
 writeln('Случайная матрица:'); for i:=1 to n do begin
 for j:=1 to m do begin
 A[i,j] := random(51) - 25;
 write(A[i,j]:5);
 end;
 writeln;
 end; sum := 0;
 for i:=1 to n do
 if A[i,n-i+1] < 0 then
 sum := sum + A[i,n-i+1];
 writeln('Сумма отрицательных элементов побочной диагонали = ', sum); product := 1;
 isnotnull := False;
 for i:=1 to n-1 do
 for j:=2 to n do
 if (j > i) and (A[i,j] <> 0) then begin
 isnotnull := True;
 product := product * A[i,j];
 end;
 if isnotnull
 writeln('Произведение ненулевых элементов в области выше главной диагонали = ', product)
 else
 writeln('Ненулевых элементов в области выше главной диагонали нет.', product); readln;
end.

0 0

4 года назад

ПОМОГИТЕ С В1 ПОЖАЛУЙСТА!!! ОЧЕНЬ НАДО

Cheh

"1212"

2*3=6

6+2=8

8*3=24

24+2=26

0 0

4 года назад

УМНЫЕ ДОБРЫЕ ЛЮДИ ПОМОГИТЕ ПО ИНФОРМ (((( СРОЧНО СРОЧНОГО МЕНЯ ЩАС УБЬЮТ ....

zain [76]

2) B)
3) A)
4) B)
5) >^>>^<^<
6) A)
7) C)

0 0

4 года назад