5. Запишите решение примеров с арифмети тическими операциями. [2] (6+8) // 3 = 25 + 12 % 7=

120

209

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

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

dfgdfh2

Информатика

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

Первая программа: program first_program; var i: longint; begin for i : = 15 to 35 do begin if(i mod 2 = 0) then write(i, ' ') end; end. вторая программа: program second_program; var i, h, g: integer; k: string; begin k : = ''; for i : = 1 to 20 do if i mod 2 = 0 then write(i, ' '); writeln; for i : = 20 to 30 do if odd(i) then k : = k + i + ','; g : = length(k); for i : = g downto g - 1 do if (k[i] = ',') then delete(k, i, 1); write(k)end. третья программа: program third_program; var i, sum, proz: integer; begin sum : = 0; proz : = 1; for i : = 1 to 10 do if (i mod 2 = 0) then sum : = sum + i else proz : = proz * i; writeln(sum); write(proz); end. четвертая программа: program fourth_program; var i: longint; k: integer; begin k : = 0; for i : = 10 to 99 do if (i mod 2 = 0) and (i mod 3 = 0) then k : = k + i; write(k)end.