program Lektuvas;
var a, b, c, d, val, min : longint;
laik : longint;
begin
Writeln('Iveskite reiksmes');
Readln(a, b, c, d);
If ( 0 <= a) and (a < 23) and (0 <= b) and (b < 60) and (30 > C) and (c < 600) and (-12 <= d) and (d <= 12)
then
begin
laik := a * 60 + b; // skaiciuoja kada lektuvas pakilo (minutemis).
laik := laik + c + d * 60; // skaiciuoja kada nusileis (minutemis).
val := laik div 60; // skaiciuoja kiek valandu bus nusileidimo metu.
min := laik - val * 60; // skaiciuoja kiek minuciu bus nusileidimo metu.
Writeln('Lektuvas nusileis ', val,' val ',min,' min');
end
else
Writeln('Ivestos netinkamos reiksmes');
Readln;
end.
Pradinių duomenų pavyzdys: 6 5 184 -2
Paaiškinimas. Lėktuvas pakilo 6:05. Jis skrido 184 minutes, t. y. 3 valandas ir 4 minutes. Nusileidimo momentu Frankfurte bus 9:09. Tačiau nusileidimo vietoje laikas dviem valandomis ankstesnis nei Frankfurte.
ivedus duomis meta atseit blogai , bandau pats ieskot klaidos bet nelabai kas gauans ;/
program klientai;
var t, i, n, k : integer;
begin
WriteLn('Įveskite kiek žmonių stovi prie kasos');
ReadLn ( n );
WriteLn ('Įveskite kiek laiko kasininkė skiria kiekvienam klientui');
ReadLn ( t );
i := 0;
for k := 1 to n do begin
i := i + t;
WriteLn ( k,' Žmogus sugaišo laiko: ', i);
end;
ReadLn();
end.
Sam gavo reakciją nuo Lin3R Padėkit ištaisyti klaidas pascal programoje