Код на паскаль

Question

Код на паскаль

Денис Хромов Ученик (101), на голосовании 1 неделю назад

program SwapOrReset;

var
t, p, temp: integer;

begin
writeln('Введите значение переменной t:');
readln(t);
writeln('Введите значение переменной p:');
readln(p);

if t > p then
begin
// Меняем местами значения t и p
temp := t;
t := p;
p := temp;
end
else if p > t then
begin
// Присваиваем обеим переменным значение 0
t := 0;
p := 0;
end;
// Если t равно p, оставляем без изменения

writeln('Значение переменной t: ', t);
writeln('Значение переменной p: ', p);
end.

Answer 1

Татьяна Доржиева Знаток (399) 1 месяц назад

а вопрос?

Answer 2

Программа работает, проверил тут:
https://www.onlinegdb.com/online_pascal_compiler

Есть по ней вопросы?

Answer 3

 program SwapOrReset; 
 
var  
  t, p: integer; 
 
begin 
  writeln('Введите значение переменной t:'); 
  readln(t);  
  writeln('Введите значение переменной p:'); 
  readln(p); 
 
  if t > p then  
  begin 
    t := t + p; 
    p := t - p; 
    t := t - p; 
  end 
  else if p > t then 
  begin 
    t := 0;  
    p := 0;  
  end; 
 
  writeln('Значение переменной t: ', t); 
  writeln('Значение переменной p: ', p); 
end.