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.
Vari, a: longint;beginread(a);i := 1;while (a mod 10 <> 0) doinc(i);writeln('Чисел в последовательности: ', i);end.
Ответ:
===== PascalABC.NET =====
var
a,b : integer;
begin
writeln('введите a,b');
readln(a,b);
if a>b then a:=a-b
else b:=b-a;
writeln('Максимальное = ',max(a,b));
end.
Объяснение:
Var
A,Max1,Max2:integer;
Begin
Max1:=0;
Max2:=0;
Repeat
Read(A);
if A>Max1 then
Begin
Max2:=Max1;
Max1:=A;
End;
Until A=0;
WriteLn(Max2);
End.
<span>Если оценивать цветок с точки зрения биолога, то для него важны такие свойства объекта, как строение корневой системы и стебля, форма и расположение листьев, строение соцветия, способ опыления, среда обитания. Изучив эти параметры, биолог отнесет цветок к определенному виду. Информационную модель он может представить в виде схемы, описания, рисунка.</span>
