Составьте программу рисования десяти пересекающихся окружностей, расположенных горизонтально.

PascalABC.NET Версия 3.0 Сборка 1150

uses GraphABC;
begin
  for var i := 1 to 10 do DrawCircle(100, 100 + 20 * i, 100);
end.

Результат:

В классе-10 учащихся                                                                                             1 учащийся - на отлично                                                                                          ?%-составляют отличники?                                                                             1)1\10(одна десятая)=-0,2          2)0,2*100%=20%                                                                                                              
ответ:20% отличников.         

//Программа на языке паскаль:

program zagadka;

var s: String;

begin

writeln('Сидит девица в темнице, а коса на улице.');

readln(s);

while(s <> 'Морковь')

do begin

writeln('Не угадал. Попробуй еще раз');

readln(s);

end;

writeln('Правильно. Угадал!');

end.

/*

Описание:

Выводим пользователю загадку и просим его ввести ответ. Пока пользователь не угадает, просим его снова и снова вводить ответ, предварительно написав, что он ошибся. Как только мы получаем правильный ответ, программа выводит пояснение пользователю, где пишет, что тот угадал. Программа заканчивает свою работу.