Program z3;
var A:array[1..3] of string;
var B:array[1..3] of string;
i,k:byte;
begin
writeln('Ввод названий газет: ');
for i:=1 to 3 do begin write('[',i,']');readln(A[i]); end;
writeln('Ввод подписчиков: ');
for i:=1 to 3 do begin write('[',i,']'); readln(B[i]); end;
for i:=1 to 3 do begin
if (A[i]='правда') and (B[i]= 'петров') then begin k:=i;
writeln('Да, Петров выписывает газету ',A[i]); end;
end;
end.
Ввод названий газет:
[1]Книга
[2]Правда
[3]Вера
Ввод подписчиков:
[1]Библиотекарь
[2]Петров
[3]Гундяев
Да, Петров выписывает газету Правда
16МБ=128000000бит
4мин=240сек
128000000:240примерно 533333бит/с
5 Кбайтов = 5*2^13 битов
2560=5*512 =5*2^9 символов
5*2^13 : (5*2^11) = 2^2 =4 бита для одного символа
2^4 =16 символов в данном алфавите
If (a>=10) and (a<=99) then begin
writeln(a,' двузначное число'); writeln(' его квадрат=',sqr(a)); end
else writeln(а, ' не является двузначным');
Все, что добавил или изменил-отметил жирным
var a: array [1..10] of integer;
i: integer; ss: real; cc: byte;
begin
ss:=0;
cc:=0;
for i:=1 to 10 do begin
write('A[',i,'] = ');
readln(a[i]);
if a[i]>5 then begin
ss:=ss+a[i];
inc(cc);
end;
end;
writeln;
writeln('Среднее арифметическое = ',ss/cc);
end.