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
1) текстовые файлы 2) графические файлы
ИЛЛЮЗИЯ МЮЛЛЕРА-ЛАЙЕРА или ГЕОМЕТРИЧЕСКАЯ ИЛЛЮЗИЯ
<span>18205 - можно разделить на номера 18-20-5 или 1-8-20-5 (не подходит)
20158 - можно </span>разделить на номера 20-15-8 или 20-1-5-8 (не подходит)<span>
20518 - можно </span>разделить на номера 20-5-18 или 20-5-1-8 (не подходит)<span>
81205 - можно </span>расшифровать только 8-1-20-5: "HATE"