Var t,n:integer;
begin
n:=1;
t:=3;
writeln('t','n':6);
while t<25 do
begin
n:=n*2;
writeln(t,n:6);
t:=t+3;
end;
readln;
<span>end.</span>
Якщо нікого не пропускаючи (в тому числі і себе) - то 9 дівчаток.
Вчитель почав рахувати з іншої дитини, але не вказано, що він нікого не пропустив.
Тим Бернерс-Ли, британский ученый, изобрел World Wide Web (WWW) в 1989 году. Изначально эта разработка была задумана, чтобы удовлетворить спрос на автоматический обмен информацией между учеными в университетах и институтах по всему миру.Первый сайт в мире был посвящен World Wide Web - самому проекту и размещался на компьютере Бернерса-Ли.Веб-сайт описывал основные свойства Интернета; как получить доступ к документам других людей и как настроить свой собственный сервер.30 апреля 1993 программное обеспечение World Wide Web стало общественным достоянием.<span>С этого времени, Web изменил мир и стал самым мощным средством коммуникации в мире.</span>
Работает при условии, что А - не отрицательное число:
Var A:integer;
Begin
Write('A = ');
Read(A);
While A >0 do
Begin
A:=A-3;
End;
if A=0 then Write('А кратно трём')
else Write('А не кратно трём')
End.
Var
A:integer;
Begin
Write('A = ');
Read(A);
While A >3 do
Begin
A:=A-3;
End;
WriteLn('Остаток от деления А на 3: ',A);
End.