Napisz program wyliczający wartość maksymalną z trzech podanych liczb. Liczby podaje użytkownik.
pascal
program nazwa;
uses crt;
var a,m,i:integer;
begin
m:=0;
for i:=1 to 3 dobegin writeln('Podaj liczbę ', i ,': ' ); readln(a);if (a>m) then m:=a;end;writeln(' Najwieksza podana wartość to ',a); readln;
" Life is not a problem to be solved but a reality to be experienced! "
© Copyright 2013 - 2024 KUDO.TIPS - All rights reserved.
pascal
program nazwa;
uses crt;
var a,m,i:integer;
begin
m:=0;
for i:=1 to 3 do
begin
writeln('Podaj liczbę ', i ,': ' ); readln(a);
if (a>m) then m:=a;
end;
writeln(' Najwieksza podana wartość to ',a);
readln;