Var a:string;
begin
writeln ('Введите день недели с большой буквы');
read (a);
if a='Понедельник' then writeln ('В этот день 6 уроков');
if a='Вторник' then writeln ('В этот день 6 уроков');
if a='Среда' then writeln ('В этот день 6 уроков');
if a='Четверг' then writeln ('В этот день 6 уроков');
if a='Пятница' then writeln ('В этот день 5 уроков');
if a='Суббота' then writeln ('В этот день 3 урока');
if a='Воскресенье' then writeln ('В этот день уроков нет');
if (a<>'Понедельник') and (a<>'Вторник') and (a<>'Среда') and (a<>'Четверг') and (a<>'Пятница') and (a<>'Суббота') and (a<>'Воскресенье') then
writeln ('День недели введен неправильно');
end.
<em>// PascalABC.NET 3.2, сборка 1374 от 10.01.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln('*** Исходная матрица ***');
var a:=MatrRandom(4,8,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
var sa:=a.Rows.SelectMany(x->x);
Writeln('Положительные элементы:');
sa.Where(x->x>0).Println;
Write('Максимальный по модулю элемент: ',sa.Max(x->abs(x)));
end.
<u>Пример</u>
*** Исходная матрица ***
80 9 -8 32 37 75 43 -72
71 -79 94 -20 -64 -37 -98 53
19 84 -63 -4 17 5 38 -86
-32 56 87 -43 28 -40 -35 24
--------------------------------
Положительные элементы:
80 9 32 37 75 43 71 94 53 19 84 17 5 38 56 87 28 24
Максимальный по модулю элемент: 98
Var i,k,s:integer;
begin
while k<15 do
begin
i:=i+1;
if i mod 5=3 then
begin
if k<14 then write (i,'^2 + ')
else write (i,'^2 = ');
s:=s+sqr(i);
k:=k+1;
end;
end;
writeln (s);
end.
Ответ:
N=2i(i сверху как степень)
N=32 символа, значит i=5 бит
I=Ki
K - ?
I = 1/16 кбайт = 64 байта = 512 бит
i=5 бит следоватьельно
K=I/i
K=512/5=102 символа