s=(х1)+(х2)+(3х)+(х4х)+(хn)+0,0001
Что такое Windows и какова ее роль? Многие люди пользуются персональным компьютером каждый день, но немногие знают, что же такое Windows – слово, ставшее в нашем языке нарицательным. Ответить на этот вопрос корректно могут очень немногие. Постараюсь внести некоторую ясность. Windows – это не просто набор красивых окошек, картинок и пасьянсов. Это также не та часть компьютера, которую нельзя убрать, заменить, обновить – она не является неотъемлемой. Windows – это современная операционная система с графическим интерфейсом пользователя. Что это значит? Универсальная энциклопедия Кирилла и Мефодия говорит, что операционная система – это «комплекс программ, постоянно находящихся в памяти ЭВМ; организует управление устройствами машины и ее взаимодействие с пользователем». И действительно, Windows – это на самом деле совокупность программ, которая управляет работой других программ, координирует их деятельность.
1)program gt;
var a:array[1..100,1..100]of integer;
b:array[1..100]of integer;
n,m,s,i,j:integer;
begin
readln(n,m);
for i:=1 to n do
for j:=1 to m do
read(a[i,j]);
for j:=1 to m do
begin
s:=0;
for i:=1 to n do
s:=s+a[i,j];
b[j]:=s;
end;
for i:=1 to m do
write(b[i],' ');
end.
2)
program gt;
var a:array[1..100,1..100]of integer;
n,m,s,i,j:integer;
begin
readln(n,m);
randomize;
for i:=1 to n do
begin
for j:=1 to m do
begin
if(i mod 2=0)then a[i,j]:=0 else a[i,j]:=random(100);
write(a[i,j],' ');
writeln;
end;
end.
var
a, b, c: real;
begin
Write('Введите первую стороны => ');
readLn(a, b, c);
writeln('Периметр треугольника равен ', a + b + c);
end.
const
n = 5; m = 5;
var
a: <em>array [0..m, 0..n] of shortint</em>;
i, b, c: <em>integer</em>;
begin
for i := 1 to m do
begin
for b := 1 to n do
begin
a[i, b] := random(-90, 0);
write(a[i, b]:4);
if (i = m) then
if (a[i, b] mod 4 = 0) then
c += 1;
end;
writeln(<em>(i = m) and (b = n)</em> ? ' ' + c : '');
end;
writeln();
<span>end.</span>