Даны м, n, к. определить, какие две переменные равны. если равных пе¬ременных нет, вывести соответствующее сообщение

Var m,n,k:integer;
begin
readln(m,n,k);
if m=n then writeln('m = n')
 else if m=k then writeln('m = k')
  else if n=k then writeln('n = k')
   else writeln('Равных значений нет');
end.

Пример:
8 5 8
m = k

Відповіді на Завдання №2

 

1. Microsoft Word 2010.

2. Шрифт: Шрифт, Накреслення, Розмір, Видозміну, подивитися Зразок;

Абзац: Інтервал, Відступ, подивитися Зразок;

3. Треба натиснути й утримувати ліву клавішу миші від щиглика до місця, яке треба виділити.

4. Кнопка Office > Підготовка >Зашифрувати документ > Ввести пароль.

5. Зайти у вкладку Шрифт, виставити значення.

6. У вкладці Абзац натиснути на кнопки вирівнювання тексту.

7. Натиснути на закладку «Вставка», в меню таблиці вславити розмір 3х5, розмістити в документі.

8. За до нструментів «Додати», «Гумка».

9. За до Гумки».

10. За до Таблиці символів», яка викликається, за до меню «Пуск».

11. У вкладці Абзац натиснути на кнопки потрібних: нумерацій, маркованих списків, багаторівневих списків.

12. За до комбінації клавіш Ctrl+Z

// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a,b,c,d,kn,kp:real;
  Read(a,b,c,d);
  if a>0 then kp+=1 else if a<0 then kn+=1;
  if b>0 then kp+=1 else if b<0 then kn+=1;
  if c>0 then kp+=1 else if c<0 then kn+=1;
  if d>0 then kp+=1 else if d<0 then kn+=1;
  Writeln('Положительных ',kp,', отрицательных ',kn)
end.

Пример
8 -2 0 -4
Положительных 1, отрицательных 2

Для прочих версий языка Паскаль

 var
  a,b,c,d,kn,kp:real;

begin
  Read(a,b,c,d);
  kp:=0; kn:=0;
  if a>0 then kp+=1 else if a<0 then kn+=1;
  if b>0 then kp+=1 else if b<0 then kn+=1;
  if c>0 then kp+=1 else if c<0 then kn+=1;
  if d>0 then kp+=1 else if d<0 then kn+=1;
  Writeln('Положительных ',kp,', отрицательных ',kn)
end.