Считая сверху: 3, 4, 5, 6.
Var A,S1,S2,i:integer;
Begin
S1:=0;
S2:=0;
Write('Введите результаты первого пятиборца: ');
For i:= 1 to 5 do
Begin
Read(A);
S1:=S1+A;
End;
Write('Введите результаты второго пятиборца: ');
For i:= 1 to 5 do
Begin
Read(A);
S2:=S2+A;
End;
WriteLn('S1 = ',S1);
WriteLn('S2 = ',S2);
End.
Пример:
Введите результаты первого пятиборца: 1 2 3 4 5
Введите результаты второго пятиборца: 5 6 7 8 9
S1 = 15
S2 = 35
Я уж забывать эту тему стал,
Дано:
I = 1.5 Кб
K = 3072
Найти: N — ?
Решение:
I = I/K
N=2i
I= 1,5Кб = 1,5 • 1024 • 8 = 12 288 бит.
I = 12288/3072 = 4 бита
N = 24 =16 символов
Это же не для 5-9 класов задание
Наименование Макс. кол-во (шт) Цена, ед
Пирожки 2000 2
Шанежки 1500 4
Булочки 1200 1
Пирожное 700 8
Изделия
Наименование Количество
Пирожки 0
Шанежки 400
Булочки 0
Пирожное 700
1100 1100 склад
Максимальная выручка цеха 7200