Program CrazyCoder;
var n:real; i:integer;
begin write('Введите n ');
read(n);
if (n<2) or (n>10) then
begin
while (n<=1) or (n>10) do
begin
writeln('Ошибка! Число n должно быть в диапазоне от 2 до 10');
write('Введите n ');
read(n);
end;
end;
for i:=1 to 10 do
writeln(n,'*',i,'=',n*i);
<span>end.</span>
Стример- ленточный накопитель, запоминающее устройство на принципе магнитной записи на ленточном носителе, с последовательным доступом к данным,
Что такое Windows и какова ее роль? Многие люди пользуются персональным компьютером каждый день, но немногие знают, что же такое Windows – слово, ставшее в нашем языке нарицательным. Ответить на этот вопрос корректно могут очень немногие. Постараюсь внести некоторую ясность. Windows – это не просто набор красивых окошек, картинок и пасьянсов. Это также не та часть компьютера, которую нельзя убрать, заменить, обновить – она не является неотъемлемой. Windows – это современная операционная система с графическим интерфейсом пользователя. Что это значит? Универсальная энциклопедия Кирилла и Мефодия говорит, что операционная система – это «комплекс программ, постоянно находящихся в памяти ЭВМ; организует управление устройствами машины и ее взаимодействие с пользователем». И действительно, Windows – это на самом деле совокупность программ, которая управляет работой других программ, координирует их деятельность.
Ответ:
15 или 16 в зависимости от используемой системы единиц. См. решение
Объяснение:
Текстовый документ занимает память :
N*2048*2 байт ⇒ N*4096
Растровый документ занимает:
N*1536*1024*3 байт (24-битная = 3 байтная, т.к. 1 байт=8 бит) ⇒
N*4718592.
Получаем неравенство:
N*4718592 - N*4096 > 70000000 (если за 1 Мбайт принять 1000000 байт)
N*(4718592-4096) > 70000000
N > 14 (ответ 15)
N*(4718592-4096) > 73400320 (если за 1 Мбайт принять 1 048 576 байт)
N > 15 (ответ 16).
1 задани это снимок
2 ( спасидо дяде)
Обра́тное число́ (обратное значение, обратная величина) — это число, на которое надо умножить данное число, чтобы получить единицу. Два таких числа называются взаимно обратными.
VAR
x:array[1..100] of real;
n,i,c:integer;
BEGIN
write('n=');
readln(n);
for i := 1 to n do begin
write('x[', i, ']=');
readln(x[ i ]);
end;
c:=0;
for i := 1 to n-1 do if x[ i ]*x[ i+1 ]=1 then c:=c+1;
writeln('c=',c);
readln;
END.
3 for i:=1 to n-1
for j:= i+1 do
if a<a[j]>; a:=a[j]; a[j]:=b end
4 не знаю