Czy zna ktoś podstawy programu PASCAL? Jak zrobić to zadanie : http://main.edu.pl/pl/user.phtml?op=showtask&task=cze&con=PAS
" Life is not a problem to be solved but a reality to be experienced! "
© Copyright 2013 - 2024 KUDO.TIPS - All rights reserved.
uses crt;
var
w1,k1,w2,k2,suma:integer;
begin
ClrScr;
Write('Podaj w1: ');
ReadLn(w1);
Write('Podaj k1: ');
ReadLn(k1);
Write('Podaj w2: ');
ReadLn(w1);
Write('Podaj k2: ');
ReadLn(k1);
ClrScr;
Write(w1,' ',k1,' ',w1,' ',k1);
suma:=w1*k1+w2*k2;
WriteLn;
Write(suma);
ReadLn;
end.