Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
happinees
0 / 0 / 0
Регистрация: 05.10.2012
Сообщений: 1
#1

исправте ошибку - Turbo Pascal

08.10.2012, 12:14. Просмотров 383. Ответов 0
Метки нет (Все метки)

Кварталы города Фишбурга имеют квадратную форму. Их ограничивают N авеню, идущих с юга на север, и M улиц, идущих с востока на запад. Вертолёт взлетел на самом юго-западном перекрёстке и пролетел по прямой до самого северо-восточного перекрёстка. Над сколькими кварталами он пролетел?
Замечание. Квартал представляет собой внутреннюю область квадрата (граница квадрата не является частью квартала).
Исходные данные
Ввод содержит N и M, разделённые пробелами. 1 < N, M < 32 000.
Результат
Количество кварталов, над которыми пролетел вертолёт.
Примеры
исходные данные результат
4 3
4
3 3
2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var n,m,a,i,z: longint;
      begin
      read(n,m);
      if m=n then writeln(n-1)
      else
      if n=2 then writeln(m-1)
      else
      if m=2 then writeln(n-1)
      else
      if (m>n) and ((m-1) mod (n-1)=0) then writeln(m-1)
      else
      begin
      if n<m then a:=n else a:=m;
      for i:=1 to m do
      if (n mod i=0) and (m mod i =0) then z:=i;
      writeln(n-1+m-1-z)
      end;
      end.

http://www.cyberforum.ru/turbo-pascal/thread1033645.html
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.10.2012, 12:14
Я подобрал для вас темы с готовыми решениями и ответами на вопрос исправте ошибку (Turbo Pascal):

исправте пожалуйста ошибки
uses graph, crt; procedure shuttle(y,c:integer); const x=100; begin ...

Паскаль.Исправте ошибку.
Ввести матрицу a(m,n), m не ровно n.Заменить в каждой строке максимальный...

Двумерный массив. Поиск нулей.Не могу найти ошибку ошибку в коде
Вот,например массив 5 5 0 1 0 1 0 1 1 1 1 1 0 0 0 0 1 0 0 1 0 0 1 0 0 0...

Программа пишет ошибку!! Помогите найти ошибку
Program Summa; var i, N, M: integer; begin Writeln ('Введите значение...

исправте ошибку
помогите исправить ошибку эта задача на движение планет вокруг солнца. сказали...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
08.10.2012, 12:14
Привет! Вот еще темы с решениями:

Исправте ошибку
#include &lt;conio.h&gt; #include &lt;iostream.h&gt; long fact (int n) { if...

Исправте ошибку
не могу найти ошибку помогите #include &lt;bits/stdc++.h&gt; using namespace...

Исправте ошибку.
Дана программа: но программа борланд С++ пишет что найдена ошибка в 46 рядке, и...

Исправте ошибку
Здраствуйте программисты. Не могли бы вы мне исправить ошибку вот сдесь...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru