Ввести с клавиатуры два натуральных числа

@Badproge · Регистрация: 18.02.2020

Студворк — интернет-сервис помощи студентам

Из арифметических операций можно использовать только сложение и вычитание.

Ввести с клавиатуры два натуральных числа (оба меньше 1000).

Выведите на экран их произведение.

@ZX Spectrum-128 · 03.03.2020, 17:17

http://www.cyberforum.ru/turbo... 77860.html

@Badproge · 03.03.2020, 17:23 **[ТС]**

По времени не проходит(

@ZX Spectrum-128 · 03.03.2020, 17:28

Сообщение от Badproge

По времени

По какому еще времени?

@Puporev · 03.03.2020, 17:32

Это проверь

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
function mult(a,b:integer):integer;
begin
if a=0 then
 begin
  mult:=0;
  exit;
 end
else if a>0 then
 begin
  if a=1 then mult:=b
  else mult:=mult(a-1,b)+b;
 end
else
 begin
  if a=-1 then mult:=-b
  else mult:=mult(a+1,b)-b;
 end
end;
var a,b:integer;
begin
writeln('a,b');
readln(a,b);
write(mult(a,b))
end.

@Cyborg Drone · 09.03.2020, 22:04

Badproge, а Вы программу по ссылке, которую Вам дал ZX Spectrum-128, переделали под требования проверочного сайта? Если нет, то превышение времени ожидания связано с интерфейсом программы. Кроме того, Вам нужно было оставить только полпрограммы, поскольку КонецСвета написал необходимые Вам вычисления два раза, с помощью разных циклов.

Вообще, проще всего сделать с циклом for. Для сдачи на проверочный сайт, тупая замена умножения сложением, n итераций:

Pascal
1
2
3
4
5
6
7
8
var
  m, n, p: integer;
begin
  readln(m, n);
  p := m;
  for n := 2 to n do p := p + m;
  writeln(p)
end.

Для сдачи на проверочный сайт, быстрый вариант, с поразрядно-весовым сложением, если числа не превосходят 1000, то не более 9 итераций (по числу двоичных разрядов в числе):

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var
  m, n, p: integer;
begin
  readln(m, n);
  while n > 0 do
    begin
      if odd(n) then p := p + m;
      m := m shl 1;
      n := n shr 1
    end;
  writeln(p)
end.

Быстрее вряд ли получится.

Новые блоги и статьи Все статьи Все блоги /
Загрузка PNG-файла с альфа-каналом с помощью библиотеки SDL3_image на Android 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .	влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .	Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .
Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом

@Badproge 0 / 0 / 0 Регистрация: 18.02.2020 Сообщений: 34

	Ввести с клавиатуры два натуральных числа 03.03.2020, 16:50. Показов 2612. Ответов 5 Метки цикл (Все метки) Из арифметических операций можно использовать только сложение и вычитание. Ввести с клавиатуры два натуральных числа (оба меньше 1000). Выведите на экран их произведение. 0

@ZX Spectrum-128 6812 / 4568 / 4820 Регистрация: 05.06.2014 Сообщений: 22,434
	03.03.2020, 17:17
	http://www.cyberforum.ru/turbo... 77860.html 0

@Badproge 0 / 0 / 0 Регистрация: 18.02.2020 Сообщений: 34
	03.03.2020, 17:23 [ТС]
	По времени не проходит( 0

Ввести с клавиатуры два натуральных числа

Решение