Var s:string;
i,a:longint;
begin
readln(s);
for i:=1 to length(s) do
if (s[i]='-') or (s[i]='*') or (s[i]='/') or (s[i]=',') then
inc(a);
writeln(a);
<span>end.</span>
Ответ:
лучше конечно же отнести, в мастерскую, такая проблема скорее всего решается бесплатно
Объяснение:
попробуй отключить провод питания компьютера.
попробуй ввести команды чтобы зайти в BIOS и оттуда перезагрузить комп.
1. Скорость передачи данных.
2. Надёжность (передача данных без искажений).
3. Стоимость.
4. Резервы развития.
Бра́узер<span>, или </span>веб-обозреватель<span>— </span>прикладное программное обеспечение<span> для просмотра </span>веб-страниц<span>, содержания </span>веб-документов<span>, </span>компьютерных файлов<span> и их </span>каталогов<span>; управления </span>веб-приложениями<span>; а также для решения других задач.</span>
Program zadacha;
vara: array[1..10] of integer;i,min,n: integer;
beginn:=0;for i:=1 to 10 do begina[i]:=-5+random(5);write(a[i]:4);min:=a[1];end;
for i:=2 to 10 do beginif min>a[i] then min:=a[i];end;
for i:=1 to 10 do beginif a[i]=min then beginn:=n+1;end;end;
writeln();writeln('min=',min);writeln('n=',n);end.