1вывести на экран все трехзначные числа кратные 50 2 найти количество четных чисел начиная с числа 20 до 60 3 найти сумму нечетных чисел от 100 до 150 паскаль

269

308

Посмотреть ответы 2

Ответы на вопрос:

Pilulkin112

Информатика

4,6(35 оценок)

Var k: longint; begin k : = 50; while (k < 1000) do begin k : = k + 50; write(k, ' '); end; end. var kol, k: longint; begin k : = 20; kol : = 0; while (k < = 60) do begin kol : = kol + 1; k : = k + 2; end; writeln(kol); end. var sum, k: longint; begin k : = 101; sum : = 0; while (k < 150) do begin sum : = sum + k; k : = k + 2; end; writeln(sum); end.

Виктория2819

Информатика

4,6(37 оценок)

Const nn = 100; { максимальное количество элементов } var a: array[1..nn] of integer; i,n,k,kn,kp,ko,ke: integer; begin writeln('введите количество элементов в массиве (n< =100): '); readln(n); writeln('введите элементы массива'); kn: =0; kp: =0; ko: =0; ke: =0; for i : = 1 to n do begin read(k); a[i]: =k; if k> 0 then inc(kp) else if k< 0 then inc(kn); if (k mod 2)=0 then inc(ke) else inc(ko) end; writeln('положительных элементов ',kp,', отрицательных ',kn); writeln('четных элементов ',ke,', нечетных ',ko); end. тестовое решение: введите количество элементов в массиве (n< =100): 13 введите элементы массива 16 -5 8 21 0 -5 13 32 7 11 -4 2 -5 положительных элементов 8, отрицательных 4 четных элементов 6, нечетных 7