Question

pomocy ! Treść polecenia: var a,b,c: integer; begin a:=1; b:=2; c:=3; {tutaj wpisac} writeln(a); writeln(b); writeln(c); readln; end. Napisac nastepujace programy zakladajac ze mozemy podstawic na poczatku programu zamiast 1,2,3 dowolne inne liczby. 1. Program ma dzialac tak, ze ma wyswietlic sume oraz iloczyn a,b,c. 2. Program ma dzialac tak, ze ma wyswietlic a,b,c powiekszone czterokrotnie 3. Program ma dzialac tak, ze ma wyswietlic podwojona sume wszystkich zmiennych 4. Program ma dzialac tak, ze ma wyswietlic ktora liczba jest najwieksza do tego punktu nalezy uzyc instrukcji IF THEN przyklad: if x>y then writlen('ala ma kota'); czyli jesli x jest wieksze od to napisz ala ma kota 5. Program ma dzialac tak ze ma podac sume pierwiastkow wartosci zmiennych a,b,c

Answer 1

Na przyszłość - stawiaj entery - to bardzo ułatwia czytanie i zrozumienie polecenia.

1. Program ma dzialac tak, ze ma wyswietlic sume oraz iloczyn a,b,c.

   writeln('Suma: ',(a+b+c),', iloczyn: ',(a*b*c));

 

 

2. Program ma dzialac tak, ze ma wyswietlic a,b,c powiekszone czterokrotnie

    writeln('4a: ',(4*a),', 4b: ',(4*b),', 4c: ',(4*c));

 

 

3. Program ma dzialac tak, ze ma wyswietlic podwojona sume wszystkich zmiennych

   writeln((a+b+c)*2);

 

 

4. Program ma dzialac tak, ze ma wyswietlic ktora liczba jest najwieksza do tego punktu nalezy uzyc instrukcji IF THEN przyklad: if x>y then writlen('ala ma kota'); czyli jesli x jest wieksze od to napisz ala ma kota

 

program liczby;
var a,b,c,max:Integer;

begin
    a:=1;
    b:=2; 
    c:=3;

   max:=a;
   if b>max then max:=b;
   if c>max then max:=c;
   writeln(max);

end.

 

 

5. Program ma dzialac tak ze ma podac sume pierwiastkow wartosci zmiennych a,b,c

   writeln(sqrt(a)+sqrt(b)+sqrt(c));