Переменные: number,a,b,c,max,counter тип целочисленный
<h3><em>Начало</em></h3>
Ввод значения number
a = number целочисленное деление на 100
b = (number целочисленное деление на 10) остаток от деления на 10
c = number остаток от деления на 10
если (a больше b) и (a больше c) то
max = a
если (b больше a) и (b больше c) то
max = b
если (c больше b) и (c больше a) то
max = c
если a = max то
counter = counter + 1
если b = max то
counter = counter + 1
если c = max то
counter = counter + 1
Вывод значения counter
<h3><em>Конец</em></h3>
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.
var
a: array [1..18] of integer;
y: boolean := false;
begin
for var i: integer := 1 to 18 do
Readln(a[i]);
for var i: integer := 1 to 18 do
if(a[i] = 19) then
begin
y := true;
break;
end;
if y then Writeln('Yes')
else Writeln('No');
end.
Друган, хеллоу. Мне кароче комп такой купили, на нём в доту можно задротить овер много времени. Там кароч видеокарта, ща буду майнить биткоин, а потом в ксшчку здоровить, кароч от нвидеа. Процессор самый new от интел, чуть ли не квантовый. Вообще класс. Оперативка на 100 гигабайт, вообще, можно хоть 200 приложух открывать. Кароч, там ещё нифига не лагает, супеер! Кароч, го в доту.
1)
a нет
b нет
c нет
2)
1<span>строковый тип</span>
<span>2<span>целый тип (INTEGER) </span></span>
<span><span>3<span>вещественный тип</span></span></span>
<span><span><span>3)</span></span></span>
<span><span><span>1- 30 -46</span></span></span>
<span><span><span>2- 30 -46 -0.126 15.003</span></span></span>
<span><span><span>3- 'g'</span></span></span>
<span><span><span>4- <span>‘солнце’ '55' 'g'</span></span></span></span>
<span><span><span>5- 30 -46</span></span></span>