Задать вопрос!

Задать вопрос!

Все категории

4 года назад

11

Помогите срочно!!!! Даю 100 баллов!!!

Помогите срочно!!!!
Даю 100 баллов!!!

Информатика

1 ответ:

HHGH [15]4 года назад

0 0

1) 31(Просто считаешь все символы + пробелы)

2)4 (32/8)

3)107

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

1) с клавиатуры вводится строка символов состоящая из заменить все буквы в слов, последнем слове на восклицательные знаки 2)С кл

rgrgrtgg

1)
(Слова разделяются одним пробелом)
var s:string;
l,i:integer;
begin
writeln('Введите строку:');
readln(s);
l:=length(s);
i:=l;
while s[i]<>' ' do
begin
s[i]:='!';
i:=i-1;
end;
writeln(s);
end.

Пример:Введите строку:
с клавиатуры вводится строка символов
с клавиатуры вводится строка !!!!!!!!

2)
var s1,s2:string;
p,i:integer;
begin
writeln('Введите строку:');
readln(s1);
p:=pos(';',s1);
s2:=copy(s1,1,p);
i:=p+1;
while s1[i]<>';' do i:=i+1;
s2:=s2+copy(s1,i,length(s1)-i+1);
writeln(s2);
end.

Введите строку:
abс;xyz;reо
abс;;reо

0 0

4 года назад

Дано натуральное число n. Вычислить y=2*4*6...(2n) .сделать через цикл с параметром!!!Срочно!

Елена Лыткина [4]

Var n,i,x,x1:integer;

x:=0;

y:=1;

readln(n);

For i:=1 to n do

Begin

x:=x+2;

y:=y*x;

end;

Writeln('y=', y);

readln;

end.

0 0

3 года назад

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

Дам 39 баллов Помогите пожалуйста

Гражд России [7]

Положительного, есть теория по этому)

0 0

4 года назад

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

Прибавь к этим словам по 2 буквы и получи новые слова из 5 букв: --гор,--тон,--гон,--гар,--сар,--унь,--дио,--пех,--лад,--бор,--к

partia69

Бугор, бетон, загон, загар, сахар, окунь, радио, успех,уклад, забор, закон, бекон, фасон, букет, зарок, пирог, затор, табак, кабак, рыбак

0 0

4 года назад

Pascal !!! Дан массив целых чисел. Проверить, есть ли в нем одинаковые элементы.

София Мартынец

Var a: array[1..10] of integer;
var i, j, ans:integer;
begin
ans:=0;
for i:=1 to 10 do
begin readln(a[i]);
end;
for i:=1 to 10 do
begin
for j:=i+1 to 10 do
begin
if a[i]=a[j] then ans:=ans+1;
end;
end;
if ans>0 then writeln('есть')
else writeln('нет');
end.<span> </span>

0 0

4 года назад