Впредставленном фрагменте программы значения одномерного массива с оператора цикла. чему будет равно a[5]? for i : = 1 to 5 do begin a[2*i - 1] : = i; a[2*i] : = i*i end;
//1 var A, B, i: integer; begin write('Введите A и B: '); readln(A, B); for i := A to B do if ((i mod 3 = 0) and (i mod 10 = 3)) then writeln(i); end.
//2 var A, B, i, k: integer; begin write('Введите A и B: '); readln(A, B); for i := A to B do if ((i > 99) and (i < 1000)) and ((i mod 10 = 9) and (i mod 100 <> 99)) then begin writeln(i); k := k + 1; end; if k = 0 then writeln('Таких чисел нет.'); end.
//3 var sum, i, n: integer; begin write('Введите количество предметов: '); readln(n); for i := 1 to n do begin readln(n); sum := sum + n; end; writeln('Общая масса = ', sum); end.
//3 с другим циклом var sum, n: integer; begin writeln('Введите 0 для завершения ввода.'); repeat readln(n); sum := sum + n; until n = 0; writeln('Общая масса = ', sum); end.
// PascalABC.NET 3.3, сборка 1590 от 03.12.2017 // Внимание! Если программа не работает, обновите версию!
№1
begin var (a,b):=ReadInteger2('Границы интервала [A,B]:'); for var n:=a to b do if (Abs(n mod 10)=3) and (n mod 3=0) then Print(n) end.
Пример Границы интервала [A,B]: -50 142 -33 -3 3 33 63 93 123
№2
begin var (a,b):=ReadInteger2('Границы интервала [A,B]:'); var k:=0; for var n:=a to b do begin var m:=Abs(n); if (m mod 10=9) and (m mod 100<>99) and (m>=100) and (m<=999) then begin Print(n); k+=1 end end; if k=0 then Writeln('Таких чисел нет') end.
begin var n:=ReadInteger('Введите количество предметов:'); var m:=0.0; for var i:=1 to n do begin Write('Маcса предмета № ',i,': '); m+=ReadReal; end; Writeln('Масса груза равна ',m) end.
Пример Введите количество предметов: 5 Маcса предмета № 1: 24.62 Маcса предмета № 2: 8.1 Маcса предмета № 3: 132 Маcса предмета № 4: 24.5 Маcса предмета № 5: 52.7 Масса груза равна 241.92
Пройдем по циклу:
i = 1 A[1] =1 A[2] = 1
i = 2 A[3] =2A[4] = 4
i = 3 A[5] =3 A[6] = 9
i = 4 A[7] =4 A[8] = 16
i = 5 A[9] =5 A[10] = 25
Следовательно A[5] =3