Var i,k:integer;
begin
k:=0;
for i:= 100 to 1000 do if (i mod 5=0) and (i mod 21=0) then k:=k+1;
write(k)
<span>end.</span>
Заполнение случайными числами:
Const N = 20;
Var
A:array[1..N] of real;
i:integer;
R:real;
Begin
Randomize;
R:=0;
For i:= 1 to N do
Begin
A[i]:=random*(2*N+1)-N;
R:=R-A[i];
Write(A[i]:0:1,' ')
End;
WriteLn;
WriteLn('R = ',R);
End.
Ввод с клавиатуры:
Const
N = 20;
Var
A:array[1..N] of real;
i:integer;
R:real;
Begin
R:=0;
For i:= 1 to N do
Begin
Read(A[i]);
R:=R-A[i];
End;
WriteLn('R = ',R);
End.
Материнская плата ( англ. motherboard, MB; также
mainboard , сленг. мама , мать , материнка) — сложная
многослойная печатная плата, являющаяся основой
построения вычислительной системы (компьютера) .
В некоторых сложных электронных приборах и
устройствах (например сотовый телефон , телевизор )
основная (наибольшая, наиболее значимая) плата
устройства также может называться материнской
или системной .