Микрофон - вывод звуковой информации, сканер = ввод текстовой, графической и числовой информации, наушники - вывод звуковой информации, процессор - обработка числовой информации, принтер - вывод текстовой, числовой и графической информации
Microsoft Windows: XP, Vista, 2003 Server;
ОС на базе UNIX: IBM AIX, Hewlett Packard HPUX и Sun Solaris;
BSD - Free BSD;
ОС на базе Linux (много разновидностей);
ОС Macintosh X;
Частные системы, являющиеся собственностью частной компании, кроме Unix: IBMOS/400, z/OS.
Program n1;
var a,b,c,d: real;
begin
readln(a,b,c,d);
if (a*b>c*d) then
begin
a:=a*2;
b:=b*2;
end else begin
c:=c*2;
d:=d*2;
end;
write(a,' ',b,' ',c,' ',d);
end.
Ответ: 18
Обоснование:
Var a,b,c : Integer;
Begin
a:=1257; c:=0;
while a>0 do begin
if a mod 2<>0 then b:=a mod 10; c:=c+b;
a:=a div 10; end;
Writeln(c);
end.