Написать программу! найти сумму чётных чисел в интервале от а до в ( а и в - натуральные числа, а< в).

105

416

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

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

lenaprivet

Информатика

4,4(68 оценок)

Uses crt; var a, b, temp, i, s: integer; begin clrscr; write (' a = '); readln(a); write (' b = '); readln(b); s: =0; i: =a; while i< =b do begin if (i mod 2 = 0) then s: =s+i; i: =i+1; end; writeln(' s = ', s); readln; end.

skeych

Информатика

4,4(59 оценок)

Var a,b,i,sum: integer; begin write ('введите границы интервала: '); read (a,b); for i: = a to b do if i mod 2 = 0 then sum: =sum + i; writeln ('сумма четных чисел в интервале от а до б = ',sum); end.

manokhaangel

Информатика

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

Const n = 10; var matrix : array [1..n] of array [1..n] of integer; i, j, max : integer; begin {формирование матрицы} for j : = 1 to n do begin if j < = trunc(n / 2) then {находим последний индекс для вставки 1} max : = j else max : = n - j + 1; for i : = 1 to max do {заполняем линию единицами} begin matrix[j][i] : = 1; matrix[j][n - i + 1] : = 1; end; end; {вывод матрицы (если не нужно, удалите код)} for j : = 1 to n do begin for i : = 1 to n do write(matrix[j][i], ' '); writeln; end; end.