Var
f1: text;
b, c, i: integer;
begin
randomize;
assign(f1, '6161.txt');
rewrite(f1);
for i := 1 to 100 do
begin
c := random(999)+1;
write(f1, ' ', c);
end;
close(f1);reset(f1);
b:=0;
while not EOF(f1) do
begin
read(f1, c);
if (c div 100 > 0) and (c mod 3 = 0) then b:= c;
end;
close(f1);append(f1);writeln(f1);writeln(f1);
if b <> 0 then writeln(f1, 'Число ', b, ' является трехзначным и нацело делится на 3')
else writeln(f1, 'В файле нет трехзначных чисел, которые нацело делятся на 3');
close(f1);
end.
Фотография / фотоплёнка / фотобумага
Как я тебя понял, языки программирования это C1 и Java
1) 4096:1024=4кб
4)8×60×30×100=144 000:28 800=5с
5)51 200:16=3200×10=32000 символа
3)512×8=4096×2=8192:1024=8кб
Что бы перевести скорость в систему СИ то есть в м/с то нужно разделить её на 3,6 ну или же умножить на 1000м деленное 3600сек
Выбирай какая тебе удобней 1)V/3.6 2)v*(1000/3600)