var
i, si, N, ss: Integer;
s: string;
begin
Write ('Введите N: ');
ReadLn (N);
s := IntToStr (N);
ss := 0;
for i := 1 to Length (s) do begin
si := StrToInt (s [i]);
if si mod 4 <> 0 then
ss := ss + si;
end;
Writeln ('Сумма цифр = ' + IntToStr (ss));
end.
// второй вариант решения
var
si, N, ss: Integer;
begin
Write ('Введите N: ');
ReadLn (N);
ss := 0;
while N > 0 do begin
si := N mod 10;
N := N div 10;
if si mod 4 <> 0 then
ss := ss + si;
end;
Writeln ('Сумма цифр = ' + IntToStr (ss));
end.
4.а) Корабль,
4.б) Безударный гласный,
4.в) S=v•t
4.г) Алёша Попович и Тугарин змей.
5) плохо видно
<span>1.Откройте меню Пуск. <span>Найдите значок Excel. Последовательно выберите пункты Все программы, Microsoft Office и Microsoft Office Excel 2010.
</span></span>
2.К операциям редактирования относятся:
<span>удаление и вставка строк, столбцов, ячеек и листов;копирование и перемещение ячеек и блоков ячеек;<span>редактирование текста и чисел в ячейках.
</span></span>3.Выделите первую ячейку или диапазон<span> ячеек и, удерживая клавишу CTRL, выделите курсором мыши остальные ячейки или </span>диапазоны<span>. Также можно, выбрав первую ячейку или </span>диапазон<span> ячеек, нажать сочетание клавиш SHIFT+F8, чтобы добавить другую несмежную ячейку или </span>диапазон<span> ячеек к области выделения.
</span>
(слишком много вопросов, извольте)