Дан массив a(n). у нечётных элементов отбросить дробную часть числа, а у элементов с индексами, остаток 1 при делении на 3, отбросить целую часть числа. как будет выглядеть программа в паскале?
Основная часть программы: for i = 0 to n-1 do begin if i%2 = 0 then A[i] = A[i] div 1; if i%3 = 0 then A[i] = A[i] mod 1; end;
Программа работает при A[0..n-1] всего чисел в массиве n Часть кода до этого момента (всё до begin и забивание массива) не пишу, т. к. это очень легко. Если он понадобится, напишите
вариант решения, если элементы вводятся var n, i, x, s : integer; t: string; begin writeln('количество чисел'); readln(n); s := 0; for i := 1 to n do begin writeln(i,' число:'); readln(x); if (x > 9) and (x<100)) then begin t := IntToStr(x); if (((t[1] = '3') and (t[2] <> '3')) or (t[1] <> '3') and (t[2] = '3')) then s := s+1; end; end; writeln('ответ ',s) end.
вариант решения, если элементы заданы массивом const n=50 var i, x, s : integer; t: string; m1: array [1..n] of integer; begin s := 0; for i := 1 to n do begin x := m1[i]; if (x > 9) and (x<100)) then begin t := IntToStr(x); if (((t[1] = '3') and (t[2] <> '3')) or (t[1] <> '3') and (t[2] = '3')) then s := s+1; end; end; writeln('ответ ',s) end.
вариант решения, если элементы вводятся var n, i, x, s : integer; t: string; begin writeln('количество чисел'); readln(n); s := 0; for i := 1 to n do begin writeln(i,' число:'); readln(x); if (x > 9) and (x<100)) then begin t := IntToStr(x); if (((t[1] = '3') and (t[2] <> '3')) or (t[1] <> '3') and (t[2] = '3')) then s := s+1; end; end; writeln('ответ ',s) end.
вариант решения, если элементы заданы массивом const n=50 var i, x, s : integer; t: string; m1: array [1..n] of integer; begin s := 0; for i := 1 to n do begin x := m1[i]; if (x > 9) and (x<100)) then begin t := IntToStr(x); if (((t[1] = '3') and (t[2] <> '3')) or (t[1] <> '3') and (t[2] = '3')) then s := s+1; end; end; writeln('ответ ',s) end.
for i = 0 to n-1 do begin
if i%2 = 0 then
A[i] = A[i] div 1;
if i%3 = 0 then
A[i] = A[i] mod 1;
end;
Программа работает при A[0..n-1]
всего чисел в массиве n
Часть кода до этого момента (всё до begin и забивание массива) не пишу, т. к. это очень легко.
Если он понадобится, напишите