<span>Вчера решал 238 вышло, могу ошибаться..
</span>
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
Носитель информации - это устройство, которое хранит в себе много и долго. В основном они используются для хранения какой-то информации. Например, они используются для:
- хранения результатов огромных математических исследований
- хранение персональных данных и всего содержимого какого-нибудь сайта
- хранение программного обеспечения, игр, различных файлов
А) для представления объектов окружающего мира могут быть использованы: макет застройки жилого района и фотоснимки движения воздушных масс;
б) для объяснения известных фактов могут быть использованы: фотоснимки движения воздушных масс, модель полёта самолёта новой конструкции в аэродинамической трубе и схема строения внутренних органов человека;
в) для проверки гипотез и получения новых знаний об исследуемых объектах могут быть использованы: фотоснимки движения воздушных масс, модель полёта самолёта новой конструкции в аэродинамической трубе и схема строения внутренних органов человека;
г) для прогнозирования могут быть использованы: фотоснимки движения воздушных масс, расписание движения поездов и модель полёта самолёта новой конструкции в аэродинамической трубе;
д) для управления могут быть использованы: расписание движения поездов.
Ну если же у вас такой же перечень как и у меня.
Var a,x,b:integer;
begin
for a:=20 to 100 do
if a mod 3 = 0 then x:=x+a;
writeln(x);
<span>end.</span>