Program train;
var
x, y, col: integer;
begin
writeln('введите вместимость вагона, тонн ');
readln(x);
writeln('введите количество зерна для перевозки, тонн');
readln(y);
col:=y div x;
if (x*col)<y then
Inc(col);
writeln('количество требуемых вагонов ', col);
end.
Тест
Введите вместимость вагона, тонн 3
Введите количество зерна для перевозки, тонн 10
Количество требуемых вагонов 4
program Cikle;
uses crt;
var a,b,i,k:integer;
Begin
clrscr;
write('Введите А: '); readln(a);
<span>write('Введите B: '); readln(b);
</span>if a>b then begin i:=a; a:=b; b:=i end;
{_______________________________________}
{1 способ реализации - цикл for}
k:=0;
for i:=a to и do k:=k+i;
{_______________________________________}
{2 способ реализации - цикл с предусловием while}
k:=0;
while a<=b do begin
k:=k+a;
a:=a+1 end;
{_______________________________________}
{3 способ - цикл с постусловием repeat}
k:=0;
repeat
k:=k+a;
a:=a+1;
until a>b;
{_______________________________________}
{Окончание программы одинаковое для всех способов}
Writeln('Сумма элементов в интервале [A;B] равна ', k)
readln
End.
Program naimen;
Var A, B: integer;
begin
Write ('Введите число А=');
Read (A);
Write ('Введите число B=');
Read (B);
If A<B then
Write ('Наименьшее число А')
else Write ('Наименьшее число В');
end.
Располагается в теле программы, до вызова самой процедуры
Ответ:
Объяснение:
Растровые изображения обеспечивают высокую точность передачи градаций цветов и полутонов