Uses crt;
const
n=50;
var
a:array[1..n] of integer;
i,s:integer;
begin
randomize;
for i:=1 to n do
begin
a[i]:=150+random(50);
if a[i]>=170 then s:=s+1
end;
writeln(s);
end.
Компьютер
Точный, быстрый
Считает, помогает, развлекает
Делает только, что ему говорят
Помощник
Общение
Личное, повседневное
Сообщают, предупреждают, спрашивают
Общение нужно каждому человеку
Человек
Модель
Математическая, информационная
Разъясняет, показывает, заменяет
В голове всегда модели
Копия
Чертим вектор А и от его конца откладываем вектор B, расстояние от начала вектора А до конца вектора В будет суммой векторов АВ.
Ответ:
программа Paint. Эта программа очень нужна была обществу, даже сейчас она остаётся незаменимой. На Paint можно рисовать, писать, составлять что либо и просто развлекаться.
<span>а) Алгоритм
a:= 9 a=9
b:= a mod 5 b=4
b:= b*10 b=40
a:=b div 5-3 a=8-3=5 (сначала выполняем div, потом "-")
Ответ: </span>b=40<span>
</span><span>б) Алгоритм
a:= 123 а=123
b:= a div 10 b=12
b:= b/4+2 b=5
b:= b*25+2 b=127
a:= a+ b a=250
</span>Ответ: <span>b=127</span><span>
</span>