Системное программирование — программы, обеспечивающие управление компьютерной системой, такими как процессор, ОП (оперативная память), сетевое обеспечиние и т.д.
А:=3
b:=5
c:=9
3mod3=0 (делится нацело), значит v:=1*3=3; t:=1; u:=3
5mod3=0 (не делится нацело) - не верно, действия не выполняются
9mod3=0 (делится нацело), значит v:=3*9=27; t:=2; u:=3+9=12
v=27 t=2 u=12
Var
n:integer;
begin
readln(n);
n:=n mod 7;
if n=1 then
writeln('Понедельник');
if n=2 then
writeln('Вторник');
if n=3 then
writeln('Среда');
if n=4 then
writeln('Четверг');
if n=5 then
writeln('Пятница');
if n=6 then
writeln('Суббота');
if n=7 then
writeln('Восресенье');
end.
Program BiFi;
Var x,a,s:real;
k,i:integer;
Begin
readln(x);
readln(k);
s:=0;
a:=x;
for i:=1 to k do begin a:=a/x;
s:=s+a;
writeln(s:6:3);
readln;
end.
//1
begin
for var i:=6 to 12 do print (i);
end.
//2
begin
for var i:=1 to 4 do writeln ('забота');
end.
//3
var sum: longint;
begin
for var i:=1 to 5 do inc (sum, readinteger('Введите число: '));
write ('Сумма пяти чисел: ', sum);
end.
//4
var sum, n: integer;
begin
for var i:=1 to 10 do
begin
n:=readinteger ('Введите число: ');
if (n mod 2)=0 then inc (sum, n);
end;
write ('Сумма четных чисел: ', sum);
end.
//5
var sum, r: integer;
begin
for var i:=1 to readinteger ('Введите n: ') do
begin
r:=readinteger ('Введите число: ');
if (r mod 3)=0 then inc (sum, r);
end;
write (sum);
end.
//6
begin
for var i:=0 to 9 do
if ((4204+10*i) mod 7) = 0 then writeln (i);
end.