Ты где её скачал. есле на spakes то не надо всё в орхиве а если на други то если нет в орхиве пичатай в яндыксе ключи для программы ив стовляеш название программы удачи
<h2>Программка с акцентом )))</h2>
<h3>PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a:=ReadlnString.ToWords;
a.Transform(t->RightStr(t,2)='ая' ? t[:t.Length-1]+'ой':t);
a.Println
end.
<h2>Пример</h2><h3>Ох, какая же большая пребольшая эта синяя птичка!</h3><h3>Ох, какой же большой пребольшой эта синяя птичка!</h3>
Program summa;
<span>var a, b, c, s: real; </span>
<span>begin </span>
<span>writeln('Введите числа a, b, c'); </span>
<span>readln(a,b,c); </span>
<span>s:=abs(a)+abs(b)+abs(c); </span>
<span>writeln('s=,'s); </span>
<span>readln; </span>
<span>end.</span>
1. Ответ:3. <em>В условном операторе перед ELSE не должно быть ";".</em>
2. Ответ:4. <em>Просто в программу вбиваешь код и проверяешь :)</em>
3.<em>Предположим у нас есть массив.</em>
If (a[i]<0) and (a[i] mod 6=0) then b[i]:=a[i] , где
<em>i-индекс</em>
<em>a[i],b[i]- элементы массива.</em>
<em><u>Т. е. мы смотрим, выполняется ли условие. Если да, то записываем это число в новый массив.</u></em>