var
B: array [1..14] of Real;
i: Integer;
s: Real;
begin
Randomize;
WriteLn ('Mассив:');
for i := Low (B) to High (B) do begin
B [i] := Random (100) - 50;
Write (B [i]:5:2, ' ');
end;
s := 0;
for i := Low (B) to High (B) do begin
if B [i] > 0 then
s := s + B [i];
end;
WriteLn;
WriteLn ('Сумма положительных элементов массива = ', s:5:2);
end.
Решение - в прилагаемом файле.
1.1) Формула используется для вычисления стоимости (один вариант)
1.2) Формула может использоваться для вычисления времени в пути, скорости и длины пути (три варианта). Оставшиеся два значения - числа.
2. Таблица 2 (см. рисунок)
12 × 1024 × 8<span> = </span><span>98304 бит
</span>98304 / 24576<span> = </span><span>4 бит (вес символа) </span>
Ответ:
program HappyTicket;
uses
SysUtils;
var
n1, n2, m1, m2, i, c: Integer;
s: string;
begin
Write ('Введите два номера билета: ');
ReadLn (n1, n2);
if (n1 > 100000) and (n1 < 999999) and (n2 > 100000) and (n2 < 999999) then begin
c := 0;
for i := n1 to n2 do begin
s := IntToStr (i);
m1 := StrToInt (s [1]) + StrToInt (s [2]) + StrToInt (s [3]);
m2 := StrToInt (s [4]) + StrToInt (s [5]) + StrToInt (s [6]);
if m1 = m2 then begin
Write (s, ' '); // для проверки выводятся все билеты. после убрать
Inc (c);
end;
end;
WriteLn;
WriteLn ('Количество = ', c);
end else
WriteLn ('Номера не шестизначные');
ReadLn;
end.
#include <iostream>
using namespace std;
int main()
{
int S=0;
for(int i=1; i<11; i++)
S=S+i*i;
cout<<"in cycle for: "<<S<<endl;
S=0;
int i=1;
while(i<11)
{
S=S+i*i;
i++;
}
cout<<"in cycle while: "<<S<<endl;
S=0;
i=1;
do
{
S=S+i*i;
i=i+1;
}
while (i<11);
cout<<"in cycle do...while: "<<S<<endl;
return 0;
}