1. Побудуйте в зошиті математичну модель для розв'язування задачі про рестав- рацію музейного експоната, яку наведено вп. 2.2 цього підручника (с. 73-74), для її реалізації в електронній таблиці: які вхідні дані використовуються і в яких клітинках вони розміщені; які проміжні та кінцеві результати отримуються і в яких клітинках вони розміщені; за якими формулами виконувались обчисленя?
Var maxd,n,m,lst: integer; begin { считываем с экрана } readln(n); maxd:=0; { последняя цифра } lst:=n mod 10; { цикл по количеству цифр в числе } while true do begin m:=n mod 10; if (m mod 2 =1) then writeln('нечет. цифра = ',m); if maxd < m then maxd:=m; n:=n div 10; if (n=0) then begin writeln('первая цифра = ',m); break; end; end; writeln('последняя цифра = ',lst); writeln('максимальная цифра = ',maxd); end.
Программа на паскале: var number, firstDigit, lastDigit, maxDigit: longint;
begin read(number); lastDigit := number mod 10; write('Нечетные цифры числа: '); while number > 9 do begin if number mod 2 = 1 then write(number mod 10, ' '); if number mod 10 > maxDigit then maxDigit := number mod 10; number := number div 10; end; if number mod 2 = 1 then write(number); if number mod 10 > maxDigit then maxDigit := number mod 10; firstDigit := number; writeln; writeln('Первая цифра числа - ', firstDigit); writeln('Последняя цифра числа - ', lastDigit); writeln('Наибольшая цифра числа - ', maxDigit); end.
begin
{ считываем с экрана }
readln(n);
maxd:=0;
{ последняя цифра }
lst:=n mod 10;
{ цикл по количеству цифр в числе }
while true do
begin
m:=n mod 10;
if (m mod 2 =1) then writeln('нечет. цифра = ',m);
if maxd < m then maxd:=m;
n:=n div 10;
if (n=0) then
begin
writeln('первая цифра = ',m);
break;
end;
end;
writeln('последняя цифра = ',lst);
writeln('максимальная цифра = ',maxd);
end.