Question

Очень срочно!!!даю 34 баллов .Программа if 4 в паскале ABC

Answer 1

program If4;

var

 N1, N2, N3, Res : Integer;

begin

 Write('Введите перовое целое число: ');

 Readln(N1);

 Write('Введите второе целое число: ');

 Readln(N2);

 Write('Введите третье целое число: ');

 Readln(N3);

 Res:=0;

 if N1>0 then Inc(Res);

 if N2>0 then Inc(Res);

 if N3>0 then Inc(Res);

 writeln(Res);

end.

Answer 2

Конечно, вот пример программы на языке Pascal, которая использует конструкцию if:

pascalCopy code
program IfExample;

var
  A, B, C: Integer;

begin
  writeln('Введите значения A, B и C:');
  readln(A, B, C);
  
  if A > B then
    writeln('A больше B')
  else if A < B then
    writeln('A меньше B')
  else
    writeln('A равно B');
    
  if A > C then
    writeln('A больше C')
  else if A < C then
    writeln('A меньше C')
  else
    writeln('A равно C');
    
  if B > C then
    writeln('B больше C')
  else if B < C then
    writeln('B меньше C')
  else
    writeln('B равно C');
end.

Программа сравнивает значения трех переменных A, B и C, выводя информацию о том, какие значения больше, меньше или равны друг другу. После запуска программы вам необходимо будет ввести значения переменных A, B и C, и программа выведет результаты сравнений.