идентификация
уточняющая, опознающая
распознает, классифицирует, отождествляет
помогает распознать нужную информацию
сопоставление
Var a,b,c:array[1..5]of integer;
i:integer;
begin
for i:=1 to 5 do read(a[i]);
for i:=1 to 5 do read(b[i]);
for i:=1 to 5 do begin
if(a[i]<b[i])then c[i]:=a[i] else c[i]:=b[i];write(c[i],' ');
end;end.<span>
</span>
Var n:integer;
begin
write('n = ');
readln(n);
writeln('цифры числа:');
writeln(n div 10);
writeln(n mod 10);
end.
Пример:
n = 38
цифры числа:
3
8
<u>Задание 1</u><em>(Это чо за тупая тварь придумала, что после деления натуральных чисел может быть остаток? передай всем что они там мудаки)</em>
program day;
var c,a,b:real;
Begin
Readln(a,b);
if a>b
then begin c:=a/b;
writeln('результат ',c:0:0);
end
else writeln('a не должно быть больше b');
<span>end.</span>
Я уж забывать эту тему стал,
Дано:
I = 1.5 Кб
K = 3072
Найти: N — ?
Решение:
I = I/K
N=2i
I= 1,5Кб = 1,5 • 1024 • 8 = 12 288 бит.
I = 12288/3072 = 4 бита
N = 24 =16 символов