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]);
<span>if a[c] mod 3 = 0 then </span>
d:=a[c]+d;
end;
writeln('сумма чисел кратных 3 ==> ',d);
<span>end.</span>
Держи)
Надеюсь поймешь мой почерк
Клавиaтура тут ни при чём, нужен тeкстовый редактор с поддержкой
автодополнения слов и словарём для русского языка. Почитай "Предиктивный
ввод текста" в Википeдии.
Задание 1 32 * 40 * 64 * 8 = 655360
Задание 2 48 * 40 * 64 * 8 = 983040
Задание 3 64 * 40 * 64 * 8 = 1310720
Поиск , телепрограмма , кино афиша , погода