3 года назад

Дана строка. Известно,что количество символов в строке кратно 3. Удалите из слова середину(то есть среднюю треть символов)

1 ответ:

NugMate3 года назад

0 0

Var
s:string;
n:integer;
begin
Writeln('Введите строку с длиной, кратной трем:'); Readln(s);
n:=Length(s) div 3;
Delete(s,n+1,n);
Write('Результат: ',s)
end.

Тестовое решение:
Введите строку с длиной, кратной трем:
Из строки середина будет удалена!
Результат: Из строки ет удалена!

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

Сколько двузначных чисел можно составить из цыфр 2,4,6,8,9

Виктория Петрова

Я все числа пронумеровала)).
1. 24
2. 68
3. 89.
4. 26.
5. 28.
6. 29.
7. 46.
8. 48.
9. 49.
10. 69.
11. 98.
12. 96.
13. 94.
14. 92.
15. 86.
16. 84.
17. 82.
18. 64.
19. 62.
20. 42.
21. 22.
22.44.
23.66.
24. 88.
25.99.

Надеюсь помогла))

0 0

2 года назад

Прочитать ещё 2 ответа

Помогите написать программу в паскале. Заполните массив из N элементов случайными числами в интервале [1,N] так, чтобы в массив

Татьяна Глезер [11]

//PascalABC.NET версия 3.4.0.1677 от 17.06.18

//Если программа не запускается, то обновите версию

const

m = 99;

var

n,i, j: integer;

A,: Array[1..m] of integer;

begin

Randomize;

write('n = ');

readln(n);

for i := 1 to n do

begin

repeat

j := Random(n) + 1

until A[j] = 0;

A[j] := i;

end;

for i := 1 to n do

write(A[i]:3);

writeln;

end.

0 0

4 года назад

Помогите написать программы.. Задача 1 Напишите программу, умеющую проверить положительное ли число, введённое с клавиатуры Зада

VDmitryN1

1)
Var x: real;
Begin
writeln ('Введите число');
readln (x);
if x>0 then
writeln ('Число ', x, ' положительное')
else
if x<0 then
writeln ('Число ', x, ' отрицательное')
else
if x=0 then
writeln ('Число ', x, ' не является ни положительным, ни отрицательным');
End.

2.
Var x, y: real;
Begin
writeln ('Введите два числа');
readln (x,y);
if x>y then writeln (x)
else
if x<y then writeln (y)
else
if x=y then writeln ('Числа равны');
End.

3.
Var x, sum, pr: real;
i: integer;
Begin
sum:=0;
pr:=1;
For i:=1 to 5 do
begin
write ('Введите число: ');
readln (x);
sum:=sum+x;
pr:=pr*x;
end;
writeln ('Сумма чисел = ', sum);
writeln ('Произведение чисел = ', pr);
if sum>pr then writeln (sum)
else
if sum<pr then writeln (pr)
else
if sum=pr then writeln ('Сумма и произведение равны');
End.

0 0

1 год назад

10 спортсменов-многоборцев принимают участие в соревнованиях по 5 видам спорта. По каждому виду спорта спортсмен набирает опреде

русик54 [2]

Const n=10; m=5;
var a:array[1..n,1..m+1] of integer;
i,j,k,sp,s:integer;
begin
Randomize;
writeln(' Результаты соревнований');
for i:=1 to n do
begin
s:=0;
for j:=1 to m do
begin
a[i,j]:=random(50)+50;
write(a[i,j]:4);
s:=s+a[i,j];
end;
a[i,m+1]:=s;
writeln(s:5);
end;
write('k='); readln(k);
sp:=0;
for i:=1 to n do
if a[i,m+1]>=k then sp:=sp+1;
writeln('sp=',sp);
end.

Пример:
Результаты соревнований
69 52 91 62 65 339
70 53 96 56 97 372
78 98 94 61 62 393
62 86 50 58 95 351
82 98 53 56 81 370
75 64 56 85 54 334
69 99 53 72 97 390
55 75 66 59 61 316
99 71 83 75 51 379
91 73 53 88 79 384
k=350
sp=7

0 0

4 года назад

Вычисление математического ожидания оформить в виде процедуры.(PASCAL)

rivolf [30]

var
m:real;
n,i:integer;

procedure MathW(var i:integer;var m:real);
var
x,p:real;
begin;
write('Введите значение ',i,':');
readln(x);
write('Введите вероятность ',i,':');
readln(p);
m:=m+x*p;
end;

begin;
write('Введите количество испытаний:');
readln(n);
for i:=1 to n do
MathW(i,m);
write('Result:',m);
end.

0 0

4 года назад