Program prog;
Uses crt;
var a: array [0..29] of integer;
max, min, i: integer;
begin;
clrscr;
randomize;
max:=-201;
min:=201;
for i:=0 to 29 do
begin
a[i]:=random(401)-200;
write(a[i],' ');
if (a[i]>max)and(a[i]<0) then
max:=a[i];
if (a[i]<min)and(a[i]>0) then
min:=a[i];
end;
writeln;
writeln;
writeln('max neg = ', max);
writeln('min pos = ', min);
readln;
end.
1. 30*256=7680 - кол-во символов на одной странице.
2. 7680*20=153 600 байтов - кол-во символов всего (на всех страницах).
3. 153 600/1024= 150 Кб - если нужно значение в байтах, то делать не нужно.
// PascalABC.NET 3.1, сборка 1256 от 21.06.2016
begin
var a:=ReadInteger('Введите целое число, не превышающее 9:');
if a<10 then Writeln('S2=',Range(a,10).Select(i->i*i).Sum)
else Writeln('Введенное значение больше 9')
end.
<u><em>Тестовое решение</em></u>
Введите целое число, не превышающее 9: -7
S2=525
1. Сайт продажи одежды или обуви
2. Помощь с Домашнем заданием
3. Размещение красивых фотографий
4. Сайт определённого заведение или места
5. Форум
Это больше русский язык)
а) предложение.
б) суффикс
в) местоимение