Можно переслать файл размером в 2 Кбайта. (16 Кбайт делить на частное 512 байт и 512 бит)
Программа c repeat
program bacteria_1;
var bac,min:integer;
begin
bac:=1;
write('Введите количество минут: ');
readln(min);
repeat
bac:= bac*2;
min:= min-1
until min=0;
writeln('Стало ',bac,' бакт.');
end.
Программа с for
program bacteria_2;
var bac,min,i:integer;
begin
bac:=1;
write('Введите количество минут: ');
readln(min);
for i:=1 to min do
begin
bac:= bac*2;
min:= min-1
end;
writeln('Стало ',bac,' бакт.');
end.
<em>Написано на языке PascalABC.NET</em>
А B C| A ^ B | A^B & C
0 0 0 | 0 | 0
0 0 1 | 0 | 0
0 1 0 | 0 | 0
0 1 1 | 0 | 0
1 0 0 | 0 | 0
1 0 1 | 0 | 0
1 1 0 | 1 | 0
1 1 1 | 1 | 1
включает в себя разбивку текста на строки(в рамках абзаца)и страницы выбор расположения абзацев отступов и отбивок между абзацами обтекание отдельных абзацев а также видов и начертаний шрифтов эти операции выполняются рузличными текстовыми процессорами с разной степенью АВТОМАТИЗАЦИИ!
суть фармотирования заключается в способности текстового процессора изменять оформление документа на странице
program p1;
uses crt;
var S, a, b, c:real;
begin
write('Введите площадь треугольника: '); readln(S);
write('Введите один из катетов: '); readln(a);
b:=S/(1/2*a);
c:=sqrt(a*a+b*b);
writeln('Второй катет = ', b);
writeln('Гипотенуза = ', c);
end.