Помогите пожалуйста) информатика PascalABC1)Составьте программку , которая выводит на экран

Помогите пожалуйста) информатика PascalABC
1)Составьте программу , которая выводит на экран все двухзначные числа,сумма цифр которых делится на 7.
2)Составьте программку:с клавиатуры вводятся два натуральных числа x и y.
Вывести на экран все четные числа на отрезке [x,y] и подсчитать сумму этих чисел.

Задать свой вопрос
1 ответ
//1) var a,i:integer;begin  a:=0;  for i:=10 to 99 do    if ((i mod 10+i div 10) mod 7=0) then a+=i;  write(a);end.

-------

//2)var x,y,i,a:integer;begin  read(x,y); a:=0;  for i:=x to y do     if (i mod 2=0) then a+=i;  write(a);end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт