Код PascalABC.NET 3.2:
Var S:string;
i,k:integer;
Begin
Write('Введите строку: ');ReadLn(S);
LowerCase(S);
k:=0;
For i:= 1 to S.Length-2 do
if S[i] = 'д' then
if S[i+1] = 'о' then
if S[i+2] = 'м' then
k:=k+1;
WriteLn(k)
End.
Var
S:string;
i,d1,d2,d3:integer;
Begin
WriteLn('Введите строку:');
ReadLn(S);
i:=0;
Repeat
i+=1
Until S[i] = ' ';
d1:=i-1;
Repeat
i+=1
Until S[i] = ' ';
d2:=i-d1-2;
Repeat
i+=1
Until i = S.Length;
d3:=i-d2-d1-2;
if d3 < d1 then d1:=d3;
if d2 < d1 then d1:=d2;
WriteLn(d1)
End.
Var i,p:real;
begin
i:=0.1;
p:=1;
while (i<=10) do
begin
p:=p*(1+sin(pi*i/180));
i:=i+0.1;
end;
writeln ('Rezultat: ',p);
readln;
end.
Program da;
var a,b:integer;
begin
write('Введите а:');
readln(a);
write('Введите b:');
readln(b);
if (a>2) and (b<=3) then
writeln('Правда');
else
write('Ложь')
end.
Поле ввода текста — элемент (виджет) графического интерфейса пользователя, предназначенный для ввода небольшого объёма текста без переноса строк. Выглядит как небольшой прямоугольник, заполненный цветом фона (обычно — белым), а при получении фокуса ввода в нём появляется курсор, приглашая ввести текст в поле
Ответ:
6 байт
Объяснение:
каждая буква кодируется 8 битами=1 байту, значит
слово волк = 4 байта + 1 байт (на запятую) + 1 байт (на пробел) = 6 байт