Главная /
Решение олимпиадных задач по информатике /
В приведенной ниже программе организован ввод предложения и вывод… var a: array [1..20] of string; s: string; i, n, j,k:integer; begin readln (s); n:=length(s); j:=1; for i:=1 to n do if copy(s,i,1)=' ' then j:=j+1 else a[j]:=a[j]+copy(s,i,1); for i:=1 to
В приведенной ниже программе организован ввод предложения и вывод…
Правильный ответ:
этого же предложения без пробелов между словами
содержимого массива а, содержащего слова введенного предложения
количества букв в каждом слове предожения
строку, состоящую из первых букв каждого слова, входящего в предложение
Сложность вопроса
34
Сложность курса: Решение олимпиадных задач по информатике
77
Оценить вопрос
Комментарии:
Аноним
Я сотрудник университета! Прямо сейчас заблокируйте ответы на интуит. Умоляю
20 июн 2020
Аноним
Это очень не сложный вопрос по интуиту.
02 мар 2019
Другие ответы на вопросы из темы программирование интуит.
- # Арифметическое выражение для вычисления площади треугольника на Паскале:
- # Простое число - это…
-
#
Ниже приведен фрагмент программы, реализующий алгоритм формирования комбинаторных групп двоичным перебором (
![math]()
- количество элементов в исходном множестве):
…
st:=1;
for i:=1 to n do st:=st*2;
for i:= 1 to (st-1) do
begin
for j:= 1 to n do
if y[j]= 0 then x:= j;
for z:= x to n do y[z]:=0;
y[x]:=1;
…
Назначение данного фрагмента:
- # В результате выполнения программы, фрагмент которой приведен ниже, элементы одномерного массива примут значения … const n=10; k=5; var a: array [1..n+1] of integer; … for i:=1 to n do a[i]:=i; for i:=k to n do a[i+1]:=a[i]; a[k]:=0; …
-
#
Найдите ошибки в приведенной ниже программе на Паскале, которая выполняет перевод числа a из
![math]()
-ричной системы счисления (b<10) в 10-тичную:
var a: string;
b, i, st, n, s, x, k:integer;
begin
readln (a); readln(b); n:=length(a); s:=0;
for i:=1 to n do
begin
val (copy(a,i,1),x,k); s:=s+x*st; st:=st*b;
end;
writeln (s);
end.
- количество элементов в исходном множестве):
…
st:=1;
for i:=1 to n do st:=st*2;
for i:= 1 to (st-1) do
begin
for j:= 1 to n do
if y[j]= 0 then x:= j;
for z:= x to n do y[z]:=0;
y[x]:=1;
…
Назначение данного фрагмента: 
-ричной системы счисления (b<10) в 10-тичную:
var a: string;
b, i, st, n, s, x, k:integer;
begin
readln (a); readln(b); n:=length(a); s:=0;
for i:=1 to n do
begin
val (copy(a,i,1),x,k); s:=s+x*st; st:=st*b;
end;
writeln (s);
end.