ПОМОГИТЕ РЕШИТЬ ЛЕГКОЕ ЗАДАНИЕ НА PASCAL! МОЖНО КРАТКО!. ЗАДАНИЕ НА КАРТИНКЕ! ЕСЛИ НЕ МОЖЕТЕ ОТКРЫТЬ , ТО ПИШИТЕ!!!

Приложения:

TheAmmiR: На питоне могу написать)

pomogitiset: =( нужен паскаль, прям вот срочно, а то ж*па буит(

TheAmmiR: Ты же меня в друзья добавил? Я могу примерно об

TheAmmiR: ...ъяснить в лс, как это делать

pomogitiset: Добавил, а ты Паскаль знаешь?

pomogitiset: я просто через личные писать чет не могу((

TheAmmiR: ЫЫЫ, Лички закрылм

TheAmmiR: Закрыли. Паскаль я не знаю, но могу рассказать, как это делать а ты просто переведешь это на паскаль. Если ты вообще ноль, это не ко мне, но помогу чем смогу

pomogitiset: Давай, я попробую перевести)

pomogitiset: просто говорили там как то через циклы

Ответы

Ответ дал: TheAmmiR

Начнём с того, что произведение цифр числа меньше двадцати не будет больше десяти. Первое число - 26, т.к. 2* 6 = 12.

А вообще, можно сделать проще.

Алгоритм звучит так:

икс = 10

Пока число(возьмем его за икс) > 9 и < 100:

если первая цифра строки икс "string(x[0])" (или как-то так) умноженная на x[1] больше 10:

вывести это число на экран

прибавить к иксу еденицу

Уточню: насколько я знаю, разглядывать строку как массив позволяет только питон, есть другой способ. Если вы учили преобразование одного типа в другой, вроде вещественного числа 1.23 в целое число (1 в данном случае), можно поделить икс на 10, преобразовать его обратно в целое число, это и будет первая цифра

Вторая цифра - это от икса отнять первую цифру, умноженную на 10.

Цикл "пока" - вроде-бы WHILE.

Ниже прикреплю код на питоне для примера, даже если это не то, что нужно, будет куда взглянуть.

Приложения: