Dim i As Integer Dim Massiv() As Integer Dim Summ As Integer
For i =0 To Massiv.Length - 1 If Massiv(i) Mod 2 = 0 Or Massiv(i) Mod 3 = 0 Then Summ += Massiv(i) Next ' c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535 MsgBox(Summ)
uses crt; label 1; var a: integer; begin 1: write('Введите азимут в градусах: '); readln(a); if a in [1..89] then writeln('Направление: северо-восток'); if a = 90 then writeln('Направление: восток'); if a in [91..179] then writeln('Направление: юго-восток'); if a = 180 then writeln('Направление: юг'); if a in [181..269] then writeln('Направление: юго-запад'); if a = 270 then writeln('Направление: запад'); if a in [271..359] then writeln('Направление: северо-запад'); if a in [0,360] then writeln('Направление: север'); if a > 360 then begin clrscr; введите корректное значение.'); goto 1; end; if a < 0 then begin clrscr; введите корректное значение.'); goto 1; end; end.
{Второй вариант} uses crt; label 1; var a: integer; begin 1: write('Введите азимут в градусах: '); readln(a); case a of 0,360: writeln('Направление: север'); 1..89: writeln('Направление: северо-восток'); 90: writeln('Направление: восток'); 91..179: writeln('Направление: юго-восток'); 181..269: writeln('Направление: юго-запад'); 270: writeln('Направление: запад'); 271..359: writeln('Направление: северо-запад'); end; if a < 0 then begin clrscr; введите корректное значение.'); goto 1; end; if a > 360 then begin clrscr; введите корректное значение.'); goto 1; end; end.
Dim Massiv() As Integer
Dim Summ As Integer
For i =0 To Massiv.Length - 1
If Massiv(i) Mod 2 = 0 Or Massiv(i) Mod 3 = 0 Then Summ += Massiv(i)
Next
' c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535
MsgBox(Summ)