1.
Program prim1;
Var x:integer;
Begin
x:= какое число или присваивания оператором readln(x)
if x>0 then x+1
writeln ('Полученное число :,x');
end.
Вроде так
E:/видеозапись.avi
E:/график.xls
E:/мелодия.mp3
E:/презентация.ppt
E:/ИЗОБРАЖЕНИЯ/аквариум.bmp
E:/ИЗОБРАЖЕНИЯ/ФОТО/Бия.jpeg
E:/ИЗОБРАЖЕНИЯ/ФОТО/Катунь.jpeg
E:/ТЕКСТЫ/буквы.txt
E:/ТЕКСТЫ/Онегин.doc
Ответ под номером Г)
..................................
Я надеюсь эти задачи не 8 мого класса, т.к я сдаю информатику, но мы ничего подобного ещё не решали, но я решу 1 задачу, по этому примеру можно решить остальные.
Для начала найдём сколько бит весит файл в 160Кбайт: 1310720 бит
Дальше найдём сколько времени нужно для передачи этого файла: 1310720 : 2048 = 640 сек
Потом находим сколько бит передаётся по новому кабелю: 640×768=491520 бит
И переводим биты в Кбайты: 491520:8 потом делим на 1024=60 Кбайт
//PascalABC.NET 3.2 сборка 1318
Var
ar:array[1..4] of real;
i,j:integer;
c:real;
begin
for i:=1 to 4 do
readln(ar[i]);
for i:=1 to 3 do //так как только 8 класс, пузырёк
for j:=i+1 to 4 do
if ar[i]>ar[j] then
begin
c:=ar[i];
ar[i]:=ar[j];
ar[j]:=c;
end;
for i:=1 to 4 do
write(ar[i]:3);
end.
Пример ввода:
2
1
4
3
Пример вывода:
1 2 3 4