Регистрация
Jenya19885
10.09.2022 20:09
Информатика
Есть ответ 👍

Кто решит , тому 70 составить программу нахождения суммы чисел , кратных 3 в массиве м [1: 12] (числа вводятся с клавиатуры)

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

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

kkksun
kkksun
4,7(100 оценок)
Program enot_peredelani; var a: array[1..100] of integer; c,d: integer; begin d: =0; writeln('введите элемент массива'); for c: = 1 to 12 do begin readln(a[c]); if a[c] mod 3 = 0 then  d: =a[c]+d; end; writeln('сумма чисел кратных 3 ==> ',d); end.
владислав257765
владислав257765
4,7(56 оценок)
Const   n=12; var   m: array[1..n] of integer;   i,s: integer; begin   writeln('введите ',n,' элементов массива');   s: =0;   for i : = 1 to n do   begin read(m[i]); if m[i] mod 3=0 then s: =s+m[i] end;   writeln('сумма элементов, кратных трем, равна ',s) end. тестовое решение: введите 12 элементов массива 32 18 40 52 8 14 28 35 18 21 11 41 сумма элементов, кратных трем, равна 57
Wakawak
Wakawak
4,8(78 оценок)
Program qq; var a, b, c, p: real; begin write( 'введите значения сторон треугольника: ' ); readln(a,b,c); р : = a+b+c; write( 'периметр треугольника равен: ', p); end.

Популярно: Информатика