Question

Считает кол-во четных правильно, а нечетных - нет. В чем может быть проблема?

Answer 1

потому что тип данных d - integer, а это целые числа, d попробуй поменять на float или double

Answer 2

program zadacha3_149;

var  

i,s,k,v: integer;

begin  

s:=0;

k:=0;

for i:=1 to 10 do

 begin

  writeln('Введите число: ');

  read(v);

  if (v mod 2=0) then

    s:=s+1

  else  

    k:=k+1;

 end;

writeln('Четных чисел: ',s);

writeln('Нечетных чисел: ',k);  

end.

Answer 3

спасибо за пояснение :)

Answer 4

при запуске вот такое:
100 * a + 10 * b + c
100 * a + 10 * b + c
100 * a + 10 * b + c
100 * a + 10 * b + c
100 * a + 10 * b + c
100 * a + 10 * b + c

Answer 5

program zadacha8_149;
var a,b,c:integer;
begin
for a := 1 to 9 do
for b := 0 to 9 do
for c := 0 to 9 do
if (a <> b) and (a <> c) and (b <> c) then
writeln('100 * a + 10 * b + c');
end.

Answer 6

writeln('100 * a + 10 * b + c'); замените на write((100 * a + 10 * b + c):4);

Answer 7

как же вы выручаете ..)