1)
var
a:array[1..10] of integer;
i:integer;
begin randomize;
for i:=1 to 10 do a[i]:=random(100)-40;
writeln;i:=1;
while i<=10 do begin
if a[i]<0 then begin a[i]:=0;
i:=11;end;
inc(i);
end;
for i:=1 to 10 do write(a[i]:3);
<span>end.
2)
var a:array[1..10] of integer;
i:integer;
begin
for i:= i to 10 do read(a[i]);
</span>for i:= i to 10 do<span>
if a[i] mod 3 =0 then a[i]:=a[i]*3;
</span>for i:= i to 10 do write(a[i]);
end.
Для определения следует заглянуть внутрь файлов 16-чным просмотрщиком. Либо сжать их все с одинаковыми параметрами и вычислить степень сжатия.
<span>ск-ть 160 сим/мин</span>
<span>время 30 мин</span>
<span>всего 160*30=4800сим</span>
<span>3-х дюймовая дискета эт я так понимаю 3,5", тогда примерно 1,4 мегабайта... половина - это примерно 0,7 Мб или 716,8 Кб (1024*0,7) или 734003,2 байт (716,8*1024). округлим, получим 734003 байта. Если считать, что стандартный символ - это 1 байт, то имеем 734003 символа. Тогда 734003/160=4587,51875 мин. ~ 4588 мин.</span>
Ответ:
13
Объяснение:
Ниже составлена универсальная программа для задач такого типа. Все, что вам требуется-прописать в поле констант g как отрезок, h как целое. Прога выведет количество k отрезков g в бруске или чем-то таком h.
const
g = 1.5;
h = 20;
var
l : real;
k : integer;
begin
l:= 0;
k:= -1;
while l < h do begin
l:= l + g;
k:= k + 1;
end;
write(k);
end.
1-Формализация
2-Моделирование
3-Реляционная
4-Компьютерная
5-Ключ
6-Информационная
7-Таблица
8-Запись
9-Поле
10-Математическая