Даны числа a и b вычислить сумму и утроенное произведение (информатика паскаль

ответ:

program n1;

var s,p,a,b: real;

begin

readln(a,b);

s: =a+b;

p: =3*(a+b);

writeln('сумма чисел а и b равна ', s);

writeln('утроенное произведение a и b равно ' ,p);

end.

объяснение:

после слов "равна" и "равно" обязателен !

просто попробуй в pascal abc проверить что учу я на информатике:

program n1;

uses graphabc;

var x,y: integer;

begin

setpenwidth(3);

line (100,300,300,300);

line(100,300,150,200);

setpenstyle(psdash);

line(150,200,350,200);

setpenstyle(pssolid);

line(350,200,300,300);

line(250,50,150,200);

line(250,50,100,300);

line(250,50,350,200);

line(250,50,300,300);

end.

var s: string;

i,j,k: integer;

unique: boolean;

begin

  for i : = 1000 to 9999 do

  begin

        s : = str(i);

        unique: =true;

        for j: = 1 to length(s)-1 do

              for k : = j+1 to length(s) do

              begin

                    if s[j] = s[k] then unique: =false;

              end;

        if unique then

            writeln(i);

  end;

end.

может длинее, но универсальное.

var a: integer; c1, c2, c3, c4: integer;

begin for a : = 1000 to 9999 do begin c1 : = a div 1000; c2 : = (a div 100) mod 10; c3 : = (a div 10) mod 10; c4 : = a mod 10; if (c1 < > c2) and (c1 < > c3) and (c1 < > c4) and (c2 < > c3) and (c2 < > c4) and (c3 < > c4) then writeln(a); end; end.