Program poezd;
var
P,N:integer;
begin
Writeln ('введите данные о вместимости поезда');
Readln(P);
Writeln('введите данные о количестве посылок');
Writeln('количество поездов -равно ', N/P);
End.
Изи, к примеру условие найти найболлшее из 4 цифр, а>б (если да то выведем что не выполнили задачу, так как до 3-его условия не добрались), нет, дальше б>с (если да то выведем что не выполнили задачу, так как до 3-его условия не добрались) нет, с>д если да то то самое большое это с, выводим переменную с на экран(write(c);), если нет то end.
program fantscrin;
const n = 8;
var a: array [1..n] of integer;
i,s:integer;
Begin
for i:=1 to n do
a[i]:= random(11)+1;
for i:=1 to n do
write(a[i], ' ');
p:=1;
for i:=1 to n do
if (i mod 2 <> 0) then p:=p*a[i];
writeln('');
writeln('Произведение = ',p);
End.
var a,a12,a1,a2,a3,s: integer;
begin
readln(a);
a1:=a div 100;
a12:=a mod 100;
a2:=a12 div 10;
a3:=a12 mod 10;
s:=a1+a2+a3;
writeln(s);
end.
a1-первое число трехзначного числа, a2-второе,a3-третье, a12-вторые два числа