Слово "слон" если лишнее надо убрать
Var
n, x, k, i:integer;
begin
readln(n);
k:=0;
for i:=1 to n do
begin
readln(x);
if x mod 10 =6 then
inc(k);
end;
writeln(k);
end.
<em>// PascalABC.NET 3.2, сборка 1504 от 09.07.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(30,1,20); a.Println;
Writeln('Элементов, оканчивающихся цифрой 8- ',
a.Where(x->x mod 10=8).Count)
end.
<u>Пример</u>
1 3 20 17 2 5 3 14 18 1 13 3 8 9 5 19 19 3 19 20 2 12 20 13 7 5 10 9 1 20
Элементов, оканчивающихся цифрой 8- 2
В Паскале запрещены операции, при которых возможна потеря части результата. Поэтому, в частности, запрещается присваивание целочисленной переменной вещественного значения.
На этом основании неверны операторы 2 и 3.
1)включить печку
2)налить молоко в кастрюлю
3)поставить кастрюлю на огонь
4)закепитить молоко
5)насыпать крупу
6)добавить сахар,соль
6)готово к употреблению