:долгожитель (не менее 100лет) обнаружил,что если к сумме квадратов цифр его возраста прибавить его дату рождения,то получится его возраст,сколько ему лет? это паскаль, напишите ответ .

248

324

Посмотреть ответы 2

Ответы на вопрос:

Aidana1620

Информатика

4,5(47 оценок)

Begin for var v : = 100 to 150 do begin //возраст от 100 до 150 лет var q : = sqr(strtoint(inttostr(v)[1])) //суммируем квадраты каждой цифры + sqr(strtoint(inttostr(v)[2])) //из возможного возраста + sqr(strtoint(inttostr(v)[3])); //и записываем его в q for var d : = 1 to 31 do begin //берем день месяца от 1 до 31 if (q + d) = v then begin //если q + день = возрасту println('день: ', d, ' возраст: ', v); //выводим сообщение end; end; end; end.

Алёна1478бе

Информатика

4,8(34 оценок)

Мда паскаль конечно жесть щас напишу program zadacha var a, b, c, d : integer; begin write read( a, b, c, d); p: = (a+b+c+d) / z; ch: = sqrt (p(p-a) (p-b) (p-c) (p-d)): write end. примерно так, так как я не знаю