Вот программа:
uses Crt;
var i: integer;
begin
ClrScr;
for i:=65 to 90 do
Write(Chr(i):4);
WriteLn; WriteLn;
for i:=97 to 122 do
Write(Chr(i):4);
WriteLn;
ReadLn;
end.
Начинаем алгоритм.
Переменным c и d присваиваются значения -3 и 3 соответственно.
Далее идет оператор проверки условия:
Если сумма c и d <0,
проводим действие "да"
иначе "Нет"(т.е. переходим на последнее действие.
-3+3<0?
Нет!
поэтому выполняем действие
присваивания переменной d суммы d+c:
-3+3=0
Ответ:0
Var i:integer;
begin
for i:=10 to 99 do
if (i mod 7=0) then writeln(i);
end.
Формула для расчета разрядности: (объем памяти в байтах) : (время звучания в секундах): (частота дискретизации):
<em>// PascalABC.NET 3.2, сборка 1399 от 08.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:=ReadAllLines('input.txt');
var n:=s[0].ToWords[0].ToInteger;
WriteAllText('output.txt',
s[1].ToWords.Take(n).JoinIntoString(NewLine))
end.