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
" Life is not a problem to be solved but a reality to be experienced! "
© Copyright 2013 - 2024 KUDO.TIPS - All rights reserved.
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));