Программа определяет делится ли первое число на второе нацело и выводит частное:
var
a, x, y: integer;
b: real;
begin
writeln('Введите два числа');
read(x, y);
a := x mod y;
b := x / y;
if a = 0
then writeln('Первое число делится на второе, частное: ', b)
else writeln('Первое число не делится на второе');
end.
Программа определяет делится ли первое число на второе нацело и не выводит частное:
var
a, x, y: integer;
begin
writeln('Введите два числа');
read(x, y);
a := x mod y;
if a = 0
then writeln('Первое число делится на второе')
else writeln('Первое число не делится на второе');
end.
Объяснение:
1. Щелкните ячейку на листе, в которой нужно создать гиперссылку.
Вы можете выбрать объект, который будет представлять гиперссылку, например рисунок или элемент диаграммы.
На вкладке Вставка в группе ссылки нажмите кнопку Гиперссылка Кнопка "Гиперссылка" .
* Вы также можете щелкнуть ячейку или рисунок правой кнопкой мыши и выбрать в контекстном меню команду Гиперссылка или нажать клавиши CTRL + K.
2. В разделе Связать с щелкните элемент новым документом.
3. Введите имя нового файла в поле Имя нового документа.
*Совет: Чтобы указать расположение, отличное от того, которое отображается в поле " полный путь", введите новое расположение, предшествующее имени , или нажмите кнопку изменить , чтобы выбрать нужное расположение, а затем нажмите кнопку ОК.*
4. В разделе Когда вносить правку в новый документ щелкните позже или сейчас, чтобы указать, когда нужно открыть новый файл для редактирования.
5. В поле Текст введите текст, который будет представлять гиперссылку.
6. Чтобы создать подсказку, которая будет появляться при наведении указателя на гиперссылку, нажмите кнопку Всплывающая подсказка, введите нужный текст в поле Текст подсказки, а затем нажмите кнопку ОК.
i, s: integer;
str: string;
begin
str := 'SUM';
for i := 1 to Length(str) do
s := s + ord(str[i]);
writeln(s);
end.