<em>// PascalABC.NET 3.2, сборка 1439 от 09.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln(Range(50,180).Average:0:2)
end.
<u>Результат</u>
115.00
Program red;
var a,b,c:integer;
begin
b:=0;
readln(a);
if a<10 then
begin
if a*5=0 then b:=1;
end;
if (a>=10) and (a<100) then
begin
if ((a div 10)*5=0) then b:=1;
if ((a mod 10)*5=0) then b:=1;
end;
if (a>=100) and (a<1000) then
begin
if ((a div 100)*5=0) then b:=1;
if (((a div 10) mod 10)*5=0)then b:=1;
if ((a mod 10)*5=0)then b:=1;
end;
if b=1 then writeln('yes') else writeln('no');
end.
Program E2_1;
Сколько раз будет выполнен оператор M := a[k]
при заданном массиве (3, 8, 7, 9, 4, 10, 2, 12)?
Ответ: 4 раза, т.к. условие
if M < a[k]
выполнится при a[k]=8, 9, 10, 12
------
Program E2_2;
в записи оператора s := s + a[k] была допущена ошибка - вместо него был записан оператор s := s + 1. Каким оказался ответ после исполнения неверной программы, если в качестве элементов массива были введены числа (-1, 3, -2, 4, -5, 6, -7, 8)?
Ответ: s = 4, т.к. условие
if a[k] < 0
выполнится при a[k]=-1, -2, -5, -7
---------
Какие значения примут элементы массива A[3] и A[4] после выполнения последовательности операторов, если первоначально
A[3]:=5;
A[4]:=6;
A[3]:=A[4];
A[4]:=A[3]?
Ответ:
A[3] = 6;
A[4] = 6;
-----------
В представленном фрагменте программы значения одномерного массива задаются с помощью оператора цикла. Чему будет равно A[5]?
For i := 1 To 5 Do Begin
A[2*i - 1] := i;
A[2*i] := i*i
End.
Элементу A[5] присвоит значение строка
A[2*i - 1] := i;
i при этом будет равно 3.
Ответ: A[5] = 3