К алгоритмам можно отнести:
А) Правила ТБ (делай это, но не делай это: НЕ СТОЙ под стрелой)
Б) Инструкция по приготовлению пищи (ПОКА <вода> Не <закипела> ВЫПОЛНЯЙ)
Д) Планирование своего рабочего дня (Проснуться, Позвонить, Написать, Пойти, Вернуться, Лечь спать...)
Var x,y,i,min,max1,max2:integer;
begin
writeln('пожалуйста, введите поочередно 3 числа');
readln(x);readln(y);readln(i);
if (x<y) and (x<i) then begin min:=x; max1:=y; max2:=i; end;
if (i<y) and (i<x) then begin min:=i; max1:=y; max2:=x; end;
if (y<x) and (y<i) then begin min:=y; max1:=x; max2:=i; end;
writeln('минимальное число =',min);
writeln('произведение 2-х максимальных =',max1*max2);
end.
Пример работы:
пожалуйста, введите поочередно 3 числа641281минимальное число =1произведение 2-х максимальных =8192
Var a,b,k1,k2,s:integer;
<span>begin </span>
<span>s:=0; </span>
<span>k1:=0; </span>
<span>writeln('Введите начало и конец отрезка'); </span>
<span>read(a,b); </span>
<span>k2:=b-a+1; </span>
<span>repeat </span>
<span>if b<0 then break; </span>
<span>s:=s+b; </span>
<span>b:=b-1; </span>
<span>inc(k1); </span>
<span>until (b=-1) or (b=a-1); </span>
<span>writeln('Сумма всех целых положительных чисел на отрезке = ',s); </span>
<span>writeln('Количество отрицательных целых чисел = ', k2-k1); </span>
<span>end.</span>
Интернет книга письмо объявление тв справка словарь