// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
var k:= ReadInteger('k =');
var (a,b) :=(1,1);
for var i := 3 to k do
(a,b):= (b,a+b);
Writeln('a) ', b);
(a,b) :=(1,1);
var sum:= 2;
var n:= ReadInteger('n =');
Write('б) 1, 1');
for var i:= 3 to n do
begin
(a,b):= (b,a+b);
Write(', ', b);
sum+= b;
end;
Writeln;
Writeln('в) ', sum.IsEven?'YES':'NO');
end.
На 1
странице досье
располагается 48х64х8= <span>24576
бит или 3072 или 3Кб. Тогда 1 досье, содержащее 12 страниц имеет объем
информации равный 12х3=36 Кб. Все досье занимают 45 Мб или 46080 Кб.
Следовательно всего досье 46080 : 36 = 1280</span>
Var
L:integer;
begin
writeln('Введите средний балл ученика: ');
readln(L);
if L>=13 then
writeln('Ученик будет посещать факультатив.');
if L<13 then
writeln('Ученик не может посещать факультатив!');
<span>end.</span>
Гипертекст - это с<span>труктурированный текст, в котором могут осуществляться переходы по выделенным ссылкам.</span>
Можно разместить посты в соц.сетях таких как:
Так же на различных форумах на разные темы!!!