Цикл со счётчиком

[Kristinka1]

Помогите решить пожалуйста это - Найти двузначное число, равное квадрату числа его еди¬ниц, сложенному с кубом числа его десятков...


Огромное СПАСИБО!!! заранее.


Или хотя бы эту - Найти максимальное из натуральных чисел, не превышающих 5000, которое нацело делится на 39(с использованием цикла с предусловием, с постусловием).

[_Alerter_]

На каком языке нужно сделать задачи?

[Kristinka1]

Pascal ABC

[Базиля]

что-то я если честно не могу понять условие первой задачи, объясните как-либо подробнее

[Базиля]

Или хотя бы эту - Найти максимальное из натуральных чисел, не превышающих 5000, которое нацело делится на 39(с использованием цикла с предусловием, с постусловием).

вот тебе сразу с 3 циклами

while i<=5000 do
begin
if i mod 39 = 0 then
if i>max then max:=i;
inc(i);
end;

repeat
inc(i);
if i mod 39 = 0 then
if i>max then
max:=i;
until i>5000;

for i:=1 to 5000 do
if i mod 39 = 0 then
if i >max then max:=i;

[Son Of Pain]

Сообщение от Базиля

что-то я если честно не могу понять условие первой задачи, объясните как-либо подробнее

Нужно найти решение уравнения x^3 +y^2 =10x +y для x и y, лежащих в диапазоне от 1 до 9. Нужно тупо два вложенных цикла с проверкой формулы, ответ будет 24.

[Kristinka1]

СПАСИБО всем большое1!!!