Может нужно писать в предпоследней строчке так:
.... z:0:3 ... -- вместо запятой должно стоять двоеточие
Просто не очень понятен вопрос....
1. 0,25
2. 26214,4
3. 9830,4
4. 65536
5. 131072
6. 8192
7. 3
8. 0,0625
9. 262144
10. 491,52
11. 286,72
12. 15
Var
i,k,m:integer;
n:longint;
begin
Write('Введите количество чисел: '); Read(k);
m:=0;
Writeln('Вводите числа');
for i:=1 to k do
begin
Read(n);
if n mod 6 = 0 then inc(m)
end;
Writeln('Количество чисел, кратных 6, равно ',m)
end
<em><u>Тестовое решение:</u></em>
Введите количество чисел: 4
Вводите числа
3 18 26 24
Количество чисел, кратных 6, равно 2
Program chislo;
uses crt;
var
a:integer;
begin
writeln('Введите число : ');
readln(a);
if((a Div 100)>(a Mod 10)) then
writeln('Да')
else
if((a Div 100)<(a Mod 10)) then
writeln('Нет')
end.
Для компа или для человека?