logo
Вход Регистрация Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
р6661
р6661
08.09.2020 12:14 •  Информатика

Внекотором каталоге хранился файл газета, имевший полное имя c: \сентябрь\выпуск1\газета. пользователь, находившийся в этом каталоге, поднялся на один уровень вверх, создал подкаталог вёрстка и переместил в созданный подкаталог файл газета. каково стало полное имя этого файла после перемещения?

👇
Увидеть ответ
Ответ:
Надежда1класс

C:\Сентябрь\Верстка\Газета.doc

4,8(89 оценок)
Открыть все ответы
Ответ:
fara32
fara32
08.09.2020
Решение с использование длинной арифметики.
var
  i, j, n, len, rem: integer;
  a: array[1..200] of byte;
begin
  write('Введите число: ');
  read(n);
  len := 1;
  a[1] := 1;
  for i := n + 1 to 99 {100} do
  begin
    for j := 1 to len do
    begin
      rem := a[j] * i + rem;
      a[j] := rem mod 10;
      rem := rem div 10;
    end;
    while rem > 0 do
    begin
      inc(len);
      a[len] := rem mod 10;
      rem := rem div 10;
    end;
  end;
  writeln('Произведение чисел из интервала (', n, '; 100): ');
  for i := len downto 1 do write(a[i]);
end.
Пример работы программы:
Введите число: 1
Произведение чисел из интервала (1; 100):
1948348720420644788695888257080283249381963823594360049498643927185579338215778728274424636079639781709574621897447185108592230400000000000000000000
4,7(71 оценок)
Ответ:
bellanik2p06zxf
bellanik2p06zxf
08.09.2020
FOR15

program fofgogjoj;
var
n,i : integer;
a,p : real;
begin
Writeln('Введите число.');
Readln(a);
Writeln('Введите степень');
Readln(n);
p:=1;
for i:=1 to n do
begin
p:=p*a;
end;
if a<0 then
p:=1/p;
Writeln(p :6:3);
readln;
end.

FOR16

program fofgogjoj;
var
i, n: integer;
a, p: real;
begin
Writeln('Введите число:');
Write(' a = ');
Readln(a);
Writeln('Введите показатель степени (n > 0):');
Write(' N = ');
Readln(N);
Writeln('Все степени числа ', a, ' от 1 до ', n, ':');
p:= 1;
for i:=1 to n do
begin
p:= p*a;
Writeln(' ', a, ' в степени ', i, ': ', p:0:2)
end
end.
4,8(2 оценок)
Это интересно:
П
Объемная кровать для собаки: сделай сам и порадуй своего питомца...
27.02.2021
Как изменить всю свою личность: советы от психологов...
С
Как избежать рвоты беременных...
З
Здоровье
05.02.2021
Как избавиться от узлов в мышцах: причины, симптомы и методы лечения...
К
Секреты приготовления индийского чая, которые всегда работают...
П
Как определить гусеницу: основные признаки и виды...
11.11.2020
Основные принципы полезной агрессии: как стать более уверенным в себе...
29.07.2022
Как легко и просто найти общий язык с застенчивым парнем, которого вы почти не знаете...
К
Как бесплатно создать сайт: подробный обзор лучших сервисов для начинающих...
Ф
Как купить себе частный остров: преимущества и нюансы покупки...
Новые ответы от MOGZ: Информатика
Umarinavitalevna
Umarinavitalevna
03.04.2023
Дан массив из 10 целых чисел. определите, сколько элементов этого массива имеют максимальное значение. надо написать на паскале, объяснить при этом всё, ещё и блок схему надо...
элог
элог
09.01.2021
Свой пример взаимодействия системы и среды.укажите входы и выходы системы....
dolbab
dolbab
09.01.2021
Запишите в виде логической формулы следующие высказывания: если иванов здоров и богат, то он здоров. число является простым, если оно делится только на единицу и само на себя....
borisenkkov
borisenkkov
14.12.2021
Дан массив из 20 чисел. составить программу подсчета количества элементов массива, которые не превосходят данного числа g....
fhuffggergryth5h6
fhuffggergryth5h6
14.12.2021
Напишите программу, которая находит сумму четных чисел, больших 5, в последовательности целых чисел. программа получает на выход целые числа, количество введенных чисел неизвестно,...
ruzar1987
ruzar1987
14.12.2021
Ввести a,b. вычислить x=a+b; y=a-b. найти наибольшее из чисел x,y...
ksutsydmi
ksutsydmi
20.01.2023
Вкажіть рядок дієслів, від кожного з яких можна утворити складену форму майбутнього часу. а) рахувати, поділити, посміхатися б) поздоровляти, обладнати, утворювати в) вставити,...
helena59
helena59
20.01.2023
1. Резолюция «О единстве в партии», запрещавшая создание фракций, была принята 1) в 1917 г. 2) в 1921 г. 3) в 1929 г. 4) в 1937 г. 2. Главным соперником И.В. Сталина в борьбе...
turysbekaida
turysbekaida
20.01.2023
Установите соответствие между грамматическими ошибками и предложениями, в которых они допущены: к каждой позиции первого столбца подберите соответствующую позиции из второго столбца...
alligator5
alligator5
07.11.2021
Запишіть в стандартному вигляді многочлен За•4b² - 0,8b-4b² - 2ab•3b + b•3b² - 1+ 1,5b³ ​...

MOGZ ответил

Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ Оформи подписку
О НАС
ПОМОЩЬ
App
.
.
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ