Таблица умножения на 2
Uses crt;
var i:integer;
begin
while i<=10 <strong>do
begin
writeln('2 * ',i,' = ',2*i);
i:=i+1;
end;
end.
Карандаши
Uses crt;
var i:integer;
s:string;
begin
s:='нет';
Writeln('Начало');
while s='нет' do
begin
writeln('Коробка пуста?');
readln(s);
end;
Writeln('Конец');
end.
Помог жми "Спасибо" и ставь "Лучший ответ"