Микрофон - запись аудиодорожки
Сканер - считывание и перевод в "компьютерный формат" бумажных документов, фотографий, и тд.
Монитор - отображение информации
Мышь - устройство ввода
Процессор - выполняет обработку информации, измеряя напряжение и переводя его в 0 и 1
Принтер - вывод "компьтерного формата" документов на бумагу
Хранение данных - запись на жесткий диск ( HDD, SSD и тд.) систематизированных в виртуальные папки 0 и 1 ))
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.
Фото, (gif)ки, э это чёртово правило о длииных ответах
1 Надя, 2 Саша,3 Женя ,4 Миша,5 Катя