Ввести предложение (между словами не менее одного пробела). Вывести длину самого длинного слова.

Знания

Информатика

1 ответ:

An-na1 год назад

0 0

Program PR1;
uses crt;
var stroka,tmp:string;
i,b,max:integer;
Begin
clrscr;
readln(stroka);
max:=0;
for i:=1 to length(stroka) do if (stroka[i]=' ') or (stroka[i]='.') then begin
if length(tmp)>max then max:=length(tmp);
tmp:='';
end
else begin
tmp:=tmp+stroka[i];
if i=length(stroka) then if length(tmp)>max then max:=length(tmp);
end;
writeln(max);
end.

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

Изобразить с помощью кругов эйлера

zajc

Как-то так, на счет 3 не особо уверен.

0 0

4 года назад

Напишите программу которая заполняет матрицу размером 7х7 случайными числами, а затем записывает в элементы отмеченные на рисунк

Виолетта1408

Const
   N = 7;
Var
   A:array[1..N,1..N] of integer;
   i,j:integer;
Begin
For i:= 1 to N do
    Begin
    For j:= 1 to N do
        Begin
        A[i,j]:=random(21)-10;
        Write(A[i,j]:3,' ')
        End;
    WriteLn
    End;
WriteLn;
For i:= 1 to N div 2+(N mod 2) do
    Begin
    For j:= 1 to N do
        Begin
        if (j<=N div 2+i)and(N div 2-i+(N mod 2)<j) then A[i,j]:=99;
        Write(A[i,j]:3,' ')
        End;
    WriteLn;
    End;
For i:= (N div 2)+(N mod 2)+1 to N do
    Begin
    For j:= 1 to N do
        Begin
        if (i-N div 2-1<j)and(j<=N+N div 2+1-i) then A[i,j]:=99;
        Write(A[i,j]:3,' ')
        End;
    WriteLn;
    End;
End.

0 0

4 года назад

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

Запишите в виде инструкции присваивания формулу вычисления площади круга: s=π*r^1 на Паскале

MISHIN [37]

Можно записать как:
s := 3,14 * r * r
или
s := pi * r * r
если есть константа числа пи

0 0

4 года назад

Книга состоит из 20 страниц. На каждой странице-320символов. Какой объем информации содержится в книге, если используемый алфави

arsen87 [78]

1)k=20*320=6400;
2)n=64; n=2^i; i=6 бит
3)I=ik=6400*6=38400 бит= 4800 байт= 4 Кбайт
Ответ: 4 Кбайт

0 0

3 года назад

Сколько компьютеров и сколько времени нужно для ддось атаки

kisik

Смотря что ддосить, какой у вас бот нет, сколько ботов в нём (инфицировано) и какой вид атаки Вы применяете. Почитайте про Zevs botnet, весьма неплохой.. Когда то я пользовался Ddos black energy. В общем всё в Ваших руках:)

0 0

4 года назад