Var
size: integer;
counter: integer;
mas: array of integer;
Begin
Write('Введите количество чисел в последовательности: ');
Readln(size);
if (size > 0) then
begin
Writeln();
SetLength(mas, size);
for var i := 0 to size - 1 do
begin
Write('Введите ', i + 1, ' число: ');
Readln(mas[i]);
if ((mas[i] mod 3 = 0) and (mas[i] mod 10 = 2)) then
counter := counter + 1;
end;
Writeln();
Writeln('ответ: ', counter);
end
else
Writeln('Количество чисел должно быть больше нуля!');
End.
1)
Знак присвоения
2)
real
3)
Под буквой а будет значение 3
Под буквой в будет значение 3
Объяснение:
1)
Знак равенства: '='
Знак неравенства: '<>'
Знак присвоения: ':='
2) Диапазон значений real (от 2,9*10^-39 до 1,7*10*38, вещественный тип, для integer же (от -32768 до 32767, проще говоря, в real можно использовать десятичные значения).
3)
1 действие: записываем в букву 'a' значение, которое находится в букве 'в' т.е под буквой а будет 3.
2 действие: записываем в букву 'в' значение, которое находится в букве 'а' т.е первым действием под букву 'а' мы записали цифру 3, во втором же действии в букву 'в' мы записываем число 3