Компьютер состоит из монитора и системного блока. Это его неотъемлемые части. Также к нему подключаются клавиатура, мышь, колонки. В дисковод можно вставить диск. Но есть и более современный вариант:флешка.
На компьютере можно создавать программы, презентации, предоставлять другим какую-либо информацию.
Для менее продвинутых пользователей существует программы "Помощник".
Также компьютер можно использовать как средство общения
<em>// PascalABC.NET 3.2, сборка 1439 от 09.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(10,0,100); a.Println;
Writeln(a.Where(x->x<50).Average)
end.
<u>Пример</u>
59 31 97 34 33 2 64 84 79 37
27.4
1)var a:array[1..15] of integer;
i,s:integer;
begin
randomize;
for i:=1 to 15 do a[i]:=random(20)+10;
for i:=1 to 15 do if a[i] mod 3=0 then s:=s+1;
writeln(s);
end.
2)var a: array[1..10] of integer;
i, s: integer;
begin
randomize;
for i := 1 to 10 do a[i] := random(21) - 10;
for i := 1 to 10 do if (a[i] > 0) and (a[i] mod 2 = 0) then s := s + 1;
writeln(s);
end.
Касаються : Закрити Обрати Розгорнути Перейти Клацнути Переглянути Збільшити Зменшити Ввести Двічі Клацнути Натиснути Встановити Опрацювати і передати
<em>// PascalABC.NET 3.2, сборка 1404 от 16.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a,b,k:integer; Read(a,b,k);
Writeln(Range(a,b).Where(i->i mod k=0).Count)
end.