Pascal ABC Операторы case of ; if then else ; for to do; Помогите написать...

Question

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

---

Скачать вложение Word (DOC)

Comments

Хорошо, спасибо

---

ах я просто не правильно записал переменную

---

щас допишу тебе 3задачу

---

оператору case я не нашёл применения

---

А можно ли как-то без div написать?

---

А ты знаешь иной способ записать в переменную каждую цифру числа? :)

---

mod это остаток от деления, а div это целая часть от деления

---

Да, с этим я разберусь, в любом случае спасибо

---

например 123 mod 10 = 3 т.к. 123/10 = 12,3 остаток 3, если использовать div то будет число 12

---

mod это дробная часть точнее

Answer 1

Задача 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.