var
x, count:integer;
begin
write('x = '); readln(x);
write('Количество троек в числе ', x, ' - ');
while x > 0 do
begin
if x mod 10 = 3 then
count := count + 1;
x := x div 10;
end;
writeln(count);
end.
Програ́ммное обеспе́чение <span>(допустимо также произношение </span>обеспече́ние (ПО) — программа или множество программ, используемых для управления компьютером<span>.</span>
4, там через тире написано
истинность это верный/неверный?если так то верный
var a: array[0..9] of integer;
<span> s: string;
</span><span> i,j: integer;
</span><span>begin
</span><span> for i:=0 to 9 do a[i]:=0;
</span><span> write('число: '); readln(s);
</span><span> for i:=1 to length(s) do inc(a[ord(s[i])-48]);
</span><span> i:=9;
</span><span> while a[i]=0 do i:=i-1;
</span><span> j:=i;
</span><span> i:=0;
</span><span> while a[i]=0 do i:=i+1;
</span><span> if (chr(j+48)+chr(i+48)=s[length(s)-1]+s[length(s)]) or
</span><span> (chr(i+48)+chr(j+48)=s[length(s)-1]+s[length(s)])
</span><span> then writeln('Да')
</span><span> else writeln('Нет');
end.
</span>
число: 18245390
<span>Да
</span>число: 1205483Нет