Question

Bajtockie Linie Lotnicze wzbogaciły swoją flotę o nowy model samolotu. W samolocie tym jest n1 rzędów miejsc siedzących w klasie biznesowej oraz n2 rzędów w klasie ekonomicznej. W klasie biznesowej każdy rząd ma k1 miejsc siedzących, a w klasie ekonomicznej — k2 miejsc.

Zadanie Napisz program, który: wczyta informacje na temat dostępnych miejsc siedzących w samolocie, wyznaczy sumaryczną liczbę wszystkich miejsc siedzących, wypisze wynik Wejście

W pierwszym i jedynym wierszu wejścia znajdują się cztery liczby naturalne n1, k1, n2, i k2 (1<=n1,k1,n2,k2<=1000), pooddzielane pojedynczymi odstępami.

Wyjście

Pierwszy i jedyny wiersz wyjścia powinien zawierać jedną liczbę całkowitą - liczbę miejsc siedzących w analizowanym samolocie.

Przykład Wejście
2 5 3 20

Wyjście
70


Program napisany Tylko w pascalu free pascal i turbo pascal, Bez komend dla człowieka
Tylko i wyłącznie zmienne. Program napisany w najprostrzy sposób

Answer 1

program samolot;
uses crt;
var w,n1,n2,k1,k2:integer;
plik1,plik2:text;

Begin
 assign(plik1,'ścieżka do pliku');
 assign(plik2,' ścieżka do pliku ');
reset(plik1); //otwarcie pliku
readln(plik1,n1,k1,n2,k2);
w:=(n1*k1)+(n2*k2);
rewrite(plik2);
writeln(plik2,w);
close(plik1);
close(plik2);

readln;
End.

 

program sprawdzony i dziala mam nadzieje że tak może być