Нужно делать хорошее, чтобы люди не возненавидели. Надо говорить хорошими для окружающих делами
USB провод используется для соединения электроники для передачи файлов, зарядки и т. д.
Управление устройствами компьютера (ресурсами), т.е. согласованная работа всех аппаратных средств ПК: стандартизованный доступ к периферийным устройствам, управление оперативной памятью и др.
Обеспечение пользовательского интерфейса.
Исполнение запросов программ (ввод и вывод данных, запуск и остановка других программ, выделение и освобождение дополнительной памяти и др.).
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.
Я так понимаю, мах слово - выводить на экран вместе с числом.
var a,b,c:integer;
begin
readln(a,b,c);
if (a>b) and (a>c) then write('max = ', a)
else
if (b>a) and (b>c) then write('max = ', b)
else write('max = ', c);
end.