Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Задача №1 - обмен переменных
Напишите на Паскале программу, в которой значения двух переменных меняются местами. При этом запрещено использовать третью переменную. Ваши решения выкладывайте в этой ветке форума. Очевидно, задача может иметь не одно решение, поэтому если вы придумали новый способ решения и такого решения здесь еще нет - выкладывайте.
1 | Автор: admin | 2014-09-04, 22:23   |  Репутация: [ + 22 ]
1 | Автор: admin | 2014-09-04, 22:23   |  Репутация: [ + 22 ]

Код
program ELMpr_aandb;
var a,b : integer;
Begin
    Write('a='); Read(a);
    Write('b='); Read(b);
      a:=a+b;
      b:=a-b;
      a:=a-b;
    Writeln('a=',a,' ','b=',b);
End.


El_Magnifico with <3
2 | Автор: El_MAgnifico | 2014-09-08, 12:36 | Изменено: El_MAgnifico - Пн, 2014-09-08, 12:38   |  Репутация: [ + 8 ]
Код
program friendship;
var a,b: real;
begin
Write('a'); Read(a);
Write('b'); Read(b);
a:=a*b;
b:=a/b;
a:=a/b;
Writeln('a',a,'b',b);
end.
3 | Автор: Awesome | 2014-09-09, 23:21   |  Репутация: [ + 2 ]
Awesome, 
a=1; b=0;
a:=1*0;
b:=0/0; Error на 0 делить нельзя


perfect ;)
4 | Автор: Mr_Pozitiv | 2014-09-13, 10:21   |  Репутация: [ + 6 ]
Код
program torres;
var a,b: integer;
begin
Write('a'); Read(a);
Write('b'); Read(b);
a:=round((a/100+b)*100);
b:=a mod 100;
a:=a div 100;
Writeln('a',a,'b',b);
end.

5 | Автор: torres | 2014-11-27, 23:48 | Изменено: torres - Чт, 2014-11-27, 23:57   |  Репутация: [ + 0 ]
5 | Автор: torres | 2014-11-27, 23:48 | Изменено: torres - Чт, 2014-11-27, 23:57   |  Репутация: [ + 0 ]
  • Страница 1 из 1
  • 1
Поиск: