Пользователь вводит с клавиатуры 100 целых чисел. вывести сумму чётных и не bчётных чисел. если токовых нет вывести 0. в python 2.7 либо на qbasic? желательно с описанием! заранее !
CLS FOR i = 1 TO 10 a: INPUT n IF INT(n) <> n THEN GOTO a IF INT(n / 2) = n / 2 THEN v = v + n ELSE w = w + n NEXT i PRINT "cумма четных чисел равна"; v PRINT "сумма нечетных чисел равна"; w END
1. программа это описание на формальном языке понятном компьютеру последовательности действий которые необходимо выполнить над данными для решения поставленной задачи 2. системное программное обеспечение включает в себя операционную систему и сервисные программы 3.операционная система это комплекс программ обеспечивающих совместное функционирование всех устройств компьютера и предоставляющих пользователю доступ к ресурсам компьютера 4.аппаратный Интерфейс - это средства обеспечивающие взаимодействие между устройствами компьютера для обеспечения совместного функционирования аппаратного обеспечения компьютера составляющая операционные системы входят драйверы драйверы это устройство специальные программы управляющие работой подключенных к компьютеру устройств 5.пользовательский Интерфейс это средства обеспечивающие взаимодействие человека и компьютера 6.русский компьютера это последовательная загрузка программ операционной системы из долговременной памяти в оперативную память компьютера 7.сервисные программы это различные программы обслуживающие диски программы-архиваторы программы для борьбы с компьютерными вирусами коммуникационные программы и многие другие
//Pascal var A: array [1 .. 5, 1 .. 4] of integer; V: array [1 .. 20] of integer; i, j, z: byte; SUM1, SUM2, SUM3, MIN: integer; begin randomize; writeln('***Сгенерированный массив***'); SUM1 := 0; SUM2 := 0; SUM3 := 0; for i := 1 to 5 do begin for j := 1 to 4 do begin A[i, j] := random(30); if ((A[i, j] >= 0) and (A[i, j] <= 5)) then SUM1 := SUM1 + A[i, j]; if ((A[i, j] >= 5) and (A[i, j] <= 15)) then SUM2 := SUM2 + A[i, j]; write(A[i, j]:6) end; writeln; end; writeln('Сумма элементов [0 5] = ', SUM1); writeln('Сумма элементов [5 15] = ', SUM2); MIN := A[3, 1]; for j := 1 to 4 do if A[3, j] < MIN then MIN := A[3, j]; writeln('Минимальный элемент в третьей строке = ', MIN); writeln('***Вектор***'); j := 1; z := 0; while (z < 20) do begin for i := 1 to 5 do begin z := z + 1; V[z] := A[i, j]; end; j := j + 1; end; for i := 1 to 20 do writeln(V[i]:6); for i := 20 downto 10 do SUM3 := SUM3 + V[i]; writeln('Сумма последних 10-ти элементов = ', SUM3); readln; end.
CLS
FOR i = 1 TO 10
a:
INPUT n
IF INT(n) <> n THEN GOTO a
IF INT(n / 2) = n / 2 THEN v = v + n ELSE w = w + n
NEXT i
PRINT "cумма четных чисел равна"; v
PRINT "сумма нечетных чисел равна"; w
END