Program P1;
uses
Graph,Crt;
var
d,m,i,k : integer;
x,y,x0,y0,r : integer;
a,b : real;
begin
Хмм... Про кодировку ни слова, так что, надеюсь, это не Unicode.
На один символ обычно в таких задачах отводится 1 байт.
значит 80 символов = 80 байт.
в 30 строках 30* 80 байт = 2400 байт.
на каждой странице по 30 строк, а страниц 6, значит 6 * 2400 байт = 14 400 байт
Ответ:
Объяснение:
var n:integer;
begin write('введите n - '); readln(n);
if n <> 0 then
write(n * (-1))
else write('знак не может быть изменен');
end.
<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
ReadlnString.ToWords.Count.Println
end.
<h2>Пример</h2>
Наша Маша громко плачет уронила в речку мячик
8
1)
Program asd;
USES crt;
Const n=10;
Var A:array[1..n] of integer;
i,kp,s:integer;
BEGIN
Writeln('Массив: ');
For i:=1 to n do
begin
A[i]:=Random(20);
Write(A[i]:4);
end;
Writeln;
For i:=1 to n do
begin
If A[i] mod 3=0 then
s:=s+1;
end;
Writeln('Сумма: ' ,s);
<span>END.
2)
Program asd;
USES crt;
Const n=10;
Var A:array[1..n] of integer;
i,kp,s:integer;
BEGIN
Writeln('Массив: ');
For i:=1 to n do
begin
A[i]:=Random(20)-10;
Write(A[i]:4);
end;
Writeln;
For i:=1 to n do
begin
If A[i]<0 then s:=s+1;
end;
If s=0 then Writeln('Нет отр. элементов!');
Writeln('Сумма отр. элементов: ' ,s);
<span>END.</span></span>