Программа: pascal abc.Задание: дана строка, написать программу, вставляющую после каждой точки символ пробела.

Знания

Информатика

1 ответ:

llurex [60]4 года назад

0 0

Var s1,s2:string; i:integer;
Begin
readln(s1);
for i:=1 to length(s1) do
s2:=s2+s1[i]+' ';
writeln(s2);
readln;
end.

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

В массив сохранены результаты выполнения контрольной работы: 1)Подсчитать количество пятёрок 2)Определить средней балл за к/р 3)

Egor123456

Program n1;
const n=15;
var a: array[1..n] of integer;
i,k5,kns,sum: integer;
sb: real;
begin
randomize;
k5:=0;
kns:=0;
sum:=0;
write('оценки: ');
for i:=1 to n do
begin
a[i]:=random(4)+2;
write(a[i],' ');
if a[i]=5 then k5:=k5+1;
sum:=sum+a[i];
end;
writeln;
sb:=sum/n;
writeln('кол-во 5: ',k5);
writeln('ср арифм: ',sb);
for i:=1 to n do if a[i]>sb then kns:=kns+1;
writeln('кол-во уч >ср арифм: ',kns);
end.

0 0

4 года назад

Какой объем будет иметь видео передаваемое с разрешением кадра 600 х 400 пикселей с 8 битовой глубиной цвета, скоростью воспроиз

ВикторияМилая1991

По- моему, надо сложить объем видео и звука
600*400*8*25*(1,5*60)+128*32000*2=4328192000 бит/8/1024/1024=515,96Мбайт

0 0

4 года назад

Дужеее терміново!! . Визначте події, які підтримуються для елемента керування Form 1) onActivate 2) onClick 3) onCreate 4) onEnt

Vismiluers

1) активація
2)натискання на кнопку миші
3)створення
4)ввід

0 0

4 года назад

В чем заключается маршрутизации данных ?

Кайрат777 [7]

Маршрутизация (англ. Routing) — процесс определения маршрута следования информации в сетях связи.

0 0

4 года назад

Алгоритм вычисления значений функций F(n) и G(n), где n – натуральное число, задан следующими соотношениями:F(1) = 1; G(1) = 1;F

комаров сергей ан... [50]

Последовательно находим F(5) и G(5):
F(1) = 1;
G(1) = 1;
F(2) = 1 − 1 = 0;
G(2) = 1 + 1 = 2;
F(3) = 0 − 2 = −2;
G(3) = 0 + 2 = 2;
F(4) = −2 − 2 = −4;
G(4) = −2 + 2 = 0;
F(5) = −4 − 0 = −4;
G(5) = −4 + 0 = −4;
Таким образом,
ответ F(5)/G(5) = 1.

0 0

4 года назад