const n = 450;
var
i,min,s: integer;
arr:array[1..n] of integer;
begin
min:=999;
s:=0;
for i:=1 to n do begin
arr[i]:=random(900)+100;
if arr[i]<=min then begin
min:=arr[i];
end;
end;
for i:=1 to n <span>do </span>
<span> if </span>arr[i]=min then s:=s+1;
writeln(s);
end.
Нужен сам рисунок для высчитки координат (оригинал).
Операнды
line to
assign
Дай оригинал рисунка, тогда сделаеп))
а по сути ничего сложного. Строиш по рисунку х и у, высчитываеш координаты пересечения каждого круга с каждым направлением и все через if делаеш. Например:
read (a);
if (a = 1) then
line to (x,y);
как-то так))
var s,vk:real;
m:integer;
begin
s:=100000;
vk:=0;
m:=0;
while vk<=30 do
begin
vk:=vk+0.04*s;
s:=1.04*s;
m:=m+1;
end;
write(m);
end.
Это решение для ваших параметров.
Uses Crt;
var s,vk,pc:real;
m:integer;
begin
clrscr;
Writeln('Введите сумму вклада:');
Read(s);
Writeln('Введите месячный процент(%):');
read(pc);
pc:=pc/100;
vk:=0;
m:=0;
while vk<=30 do
begin
vk:=vk+pc*s;
s:=(1+pc)*s;
m:=m+1;
end;
write('Вклад превысит 30 руб через ',m,' месяцев');
end.
Это решение для задаваемых параметров
Вопросы, недочеты в ЛС
название словаря - 17 бит (если с пробелом , без пробела 16 бит)
составитель - 11 бит
издательство - 12бит
<em />4096 :16=256-кб в секунду,скорость передачи файлов
2048 :16=8 (секунд)
Ответ:8 секунд Кбайт можно передать через другое соеденение
4 мб=4096кб
<u>Жми спасибо</u>,<em>пожалуйста</em>