Программное обеспечение
операционная система
приложения
Ответ:
var
a: array [1..3] of Integer;
i, imin: Integer;
begin
for i := Low (a) to High (a) do begin
Write (i, ' число: ');
ReadLn (a [i]);
end;
imin := 0;
for i := Low (a) to High (a) do begin
if a [i] mod 2 = 0 then
if imin = 0 then
imin := i
else if a [i] < a [imin] then
imin := i;
end;
if imin <> 0 then
WriteLn ('Наименьшее четное = ', a [imin])
else
WriteLn ('Четных чисел нет.');
ReadLn;
end.
Кол-во символо = 82(с пробелами)
Размер = 82*32 = 2624
переведём в байты = 2624/8 = 336 байт ответ(2)
Var c:integer; Begin c:=c mod 5; Writeln(c*c); End.
"Всемирная паутина".интернет нас окружает повсюду..в школе , дома , в автобусе и то есть вай фай... Интернет -это возможность общаться с людьми с другого конца света ...видеть близких тебе людей пусть даже если они находятся очень далеко..в наше время интернет есть почти в каждом доме..интернет как паутина охватывает весь земной шар....находясь в доме мы можем с чьего то компа скачать музыку или что то ещё....без инета наша жизнь была бы не такой интересной ....нас всех объединяет интернет!!! как и паутину -нить!