Pascal ABC Операторы case of ; if then else ; for to do;
Помогите написать программы..........................................................................................
................................................. которые находятся в файле

1
А ты знаешь иной способ записать в переменную каждую цифру числа? :)
mod это остаток от деления, а div это целая часть от деления
Да, с этим я разберусь, в любом случае спасибо
например 123 mod 10 = 3 т.к. 123/10 = 12,3 остаток 3, если использовать div то будет число 12
mod это дробная часть точнее

Ответы и объяснения

2014-01-29T18:24:17+04:00
Задача 1 
Var i,n,a,sum:integer;
Begin 
  Write('Введите n: '); readln(n);   
    for i:=1 to n do   
  if (i mod 2 = 0) then begin   
 a:=a+1;   
 sum:=sum+i;                           
                 end;   
Writeln('Кол-во четных чисел: ',a,' их сумма = ',sum);
End.

Задача 2 
Var i:integer;
Begin   
   for i:=100 to 999 do   
     if (i mod 2 = 0) then write(' ',i);
End.

Задача 3 
Var i,k,i1,i2,i3:integer;
Begin 
Write('Введите k: '); readln(k);   
   for i:=100 to 999 do begin   
i1:=i div 100;   
i2:=i mod 100; i2:=i2 div 10;   
i3:=i mod 10;   
      if (i1+i2+i3 = k) then write(' ',i);     
              end;
End.