Паскаль пишется как Pascal.
var
a, sum : integer;
begin
read (a);
sum := 0;
while (sum <= 10) and (a > 0) do
begin
sum := sum + a mod 10;
a := a div 10;
end;
if sum > 10 then write ('Yes') else write ('No');
end.
<em>var x1,x2,y1,y2,s:real; </em>
<em>begin </em>
<em>writeln('Введите координаты точки A'); write('X='); </em>
<em>read(x1); </em>
<em>write('Y='); </em>
<em>read(y1); </em>
<em>writeln('Введите координаты точки B'); </em>
<em>write('X='); </em>
<em>read(x2); </em>
<em>write('Y='); </em>
<em>read(y2); </em>
<em>s:=sqrt(sqr(x2-x1)+sqr(y2-y1)); </em>
<em>writeln(s);</em><span><em> </em>
<em>end.</em></span>
Ответ:
1 - заголовок
2 - ось значений
3 - легенда
4 - заголовок оси категорий
Объяснение:
Тоже поковырялся, решил первое
Паскаль есть, проверил - работает
вот третье решил, тоже проверил, тоже всё работает, НО только при условии что количество четных элементов массива совпадает с количеством нечетных
Линейный
Жили-были дед да баба.
Была у них курочка ряба.
Снесла курочка яичко, не простое, золотое.
Дед бил, бил – не разбил.
Баба била, била – не разбила.
Мышка бежала, хвостиком махнула.
Яичко упало и разбилось.
Дед и баба плачут.
Курочка кудахчет.
с ветвлением
«Гуси-лебеди»
Начало
Девочка просит печку помочь.
Если съешь моего пирожка,
то помогу,
иначе не помогу
Конец
Любишь кататься, люби и саночки возить
Начало
если любишь кататься,
то люби и саночки возить
Конец
Циклический алгоритм
«Собирай по ягодке, наберешь кузовок»
Сказка о рыбаке и рыбке:
- раз старик закинул невод, пришел невод с одною тиной
второй раз старик закинул невод... .