Задача 1.
Var
A:integer;
S:real;
Begin
S:=0;
For A:= 120 to 300 do
S:=S+A;
WriteLn('S = ',S);
End.
Результат работы программы:
S = 38010
<span>Задача 2.
Var S:real;
n,A:integer;
Begin
n:=0;
S:=0;
For A:= 15 to 100 do
if A mod 10 = 6 then
Begin
S:=S+A;
n:=n+1
End;
WriteLn('Sr = ',S,'/',n,' = ',S/n);
End.</span>
1) 1/1024 Мб=1 кб 1000 байт меньше
2) 5500000б больше 512 кб, но меньше 1Мб
3)13 байт 1/16 Кб =64 б
4)<span>600000 Мб больше 512Гб(1/2Тб)
</span>5)<span>2000000000 байт =2Гб т.е. больше 1Гб, но меньше 1Тб</span>
F=A*¬C+C*(B+¬C)+(A+¬B)*C
F=A*¬C+C*(B+¬C+A+¬B)
F=A*¬C+C
F=A+C
--------------------------------------
A B C F
0 0 0 0
0 0 1 1
0 1 0 0
0 1 1 1
1 0 0 1
1 0 1 1
1 1 0 1
1 1 1 1
for k:- 2 to 10 do
if Dat(k) > m then
begin
m :- Dat (k):
day :- k;
end;
Тут мы ищем максимальный элемент и запоминаем его позицию в переменной дей
самые большие в массиве-это шестерки
И первая шестерка имеет номер 9, значит ответ:9
Посчитаем как обычные числа:
a=1
b=2
d=3
a=2*1=2
b=2+2*3=2+6=8
c=3+1=4
d=2+8-4=6
a=2+8+4=14
<em>ответ
a=14</em>
<em>b=8</em>
<em>c=4</em>
<em>d=6</em>