Отыскать сумму двузначных естественных чисел до N у которых числа одинаковы

Отыскать сумму двузначных естественных чисел до N у которых числа одинаковы между собой. Программа на паскале через цикл for

Задать свой вопрос
Софья Михальцова
N<100 ?
Veronika
N вводится с клавиатуры?
Кацанович Коля
Да
1 ответ
Var
   N,S:integer;
Begin
WriteLn('Введите двузначное число: ');ReadLn(N);
S:=0;
For N:= 10 to N do
    if N div 10 = N mod 10 then S:=S+N;
WriteLn('S = ',S);
End.
Хрыков Леша
Цикл обязан точно смотреться так for i:=10 to n do и необходимо ведь найти сумму
Полозков Валек
желая делай как знаешь, но нужна ведь сумма
Викулька Керденская
Ну да, сумму, извините))
Арсений Бутыгин
Поправил
Golionko Vitalij
Спасибо
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

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

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

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

Войти на сайт