var
a: array[0..9] of integer;
k, i: integer;
begin
k := 0;
for i := 0 to 9 do
begin
readln(a[i]);
if a[i] > 12 then k += 1;
end;
writeln(k);
end.
Var S,n,A:integer;
Begin
Write('n = ');ReadLn(n);
For n:= 10 to n+9 do
Begin
A:=n;
S:=0;
While A > 0 do
Begin
S:=S+A mod 10;
A:= A div 10
End;
WriteLn('Сумма цифр ',n,' равна: ',S)
End;
End.
Задание в одном файле, на каждой вкладке (внизу подписано) отдельный график
4 Гбайт = 4*1024*1024*1024 = 2^2 * 2^10 * 2^10 +2^10 = 2^32 байт
<span>2 Тбайт = 2 * 2^10 * 2^10 = 2^21 = 2097152 Мбайт
2^13 бита = 1 кб (т.к 1 кб занимает </span>8 192 бит, а 2^13 =<span>8 192)</span>
Ответ:
program test01;
var a, b, rezult: integer;
begin
a:=6;
b:=3;
rezult:= a div b;
writeln ('rezult = ', rezult);
end.
Объяснение: