Var
s,n,k:integer;
begin
Writeln('введите натуральные числа, 0 - окончание ввода');
k:=0; s:=0;
repeat
Read(n);
if n<>0 then
if n mod 10 = 8 then begin k:=k+1; s:=s+n end
until n=0;
if k>0 then Writeln(s/k:0:4)
else Writeln(0)
end.
<u>Пример</u>
введите натуральные числа, 0 - окончание ввода
34 17 8 32 1424 28 7 0
18.0000
Сканер состоит из нескольких частей механической которая движется вдоль листа на нем расположена лампа подсветки, свет отражаясь от листа попадает на зеркало которое в свою очередь отражает его на чувствительную матрицу вот ка на картинке
var a:integer; b:integer; y:integer;
begin
///вводим значения
read(a,b);
y:=sqr(a)+b*b*b-sqr(a)+b*b*b;
/// выводим значения
write(y);
end.
12
3
54
"Пока" - while если правильно понял
"Если" - if
цикл с параметром - for
while - действие выполняется до того, пока требуемое условие заданное в ( ), не будет ложным
Например:
while <условие> do
<операция>
for - действие выполняется до того, пока не выполниться столько - то раз
Например:
for i:=1 to 10 do //...i:=1 to 10... это сколько раз будет выполняться цикл, в данном случае 10 раз
<операция>
if - условие, на которое есть 2 ответа: ДА или НЕТ (это как тип данных boolean, булеан логический тип данных, который тоже имеет 2 значения: true или false)
Например:
if <условие>
then <операция>
else <операция>
<span>Система команд исполнителя «Чертежник» включает 6 команд:
</span>опустить пероподнять перосместиться в точку (X, Y)сместиться на вектор (dX, dY)установить цвет (цвет)надпись (ширина, текст)