Вопрос № 77749: помогите решить задачу на Паскале: для любого натурального числа n<10000, найти сумму и произведение крайних цифр.
задчу нужно решить к 10 марта...
Вопрос № 77.749
помогите решить задачу на Паскале: для любого натурального числа n<10000, найти сумму и произведение крайних цифр.
задчу нужно решить к 10 марта
Отправлен: 10.03.2007, 13:59
Вопрос задала: Wika (статус: Посетитель)
Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 3)
Отвечает: Устинов Сергей Евгеньевич
Здравствуйте, Wika!
Задачка же не сложная...
var n,c:integer; begin readln(n);
c:=n mod 10; while n > 9 do n:=n div 10;
c:=c*n; //произведение, сумму посчитаете сами аналогично :) writeln(c); readln; end.
Отвечает: Присяжнюк Анатолий Васильевич
Здравствуйте, Wika!
Пишу с листа. Проверьте и исправьте ошибки сами:
var S, P, a, b, l, r : integer;
begin
read(a);
r := a mod 10;
l := a;
while l > 10 do l := l div 10;
****Для экзаменаторов****
Хоть и написано, что "Проверьте и исправьте ошибки сами...", но такое точно нельзя писать, потому как половину переменных вообще не определено на момент операций!!! Да и потом вычисляем одни переменные, а выводим другие...
p := l*s;
S := l+s;
writeln(s,' ',l);
=*=Gh0stik=*=
end.
Все... (С прошедшим! - обычно я такие задачи не решаю, но по случаю праздника...)
Ответ отправил: Присяжнюк Анатолий Васильевич (статус: 2-ой класс)
Ответ отправлен: 10.03.2007, 15:01 Оценка за ответ: 5
Отвечает: Gh0stik
Здравствуйте, Wika!
Да уж что-то эксперты перестарались на праздниках... ;). Один условие не до конца дочитал, другой вообще в переменных заблудился...
Потому считаю что необходимо всетаки привести полное и верное решение:
var fst,lst:integer;
begin
write('Input n<10000: ');read(fst);
lst:=fst mod 10;
repeat fst:=fst div 10 until fst<10;
writeln('sum=',fst+lst);
writeln('product=',fst*lst);
readln;
end.
Good Luck!!!
--------- Господь Бог - это всего лишь сверхмощный генератор случайных чисел, в соответствии с которыми сочетаются события на Земле. Генератор случайных чисел - и только.
Ответ отправил: Gh0stik (статус: Профессионал) Украина, Славянск Организация: Славянский государственный педагогический университет (Кафедра алгебры) ICQ: 289363162 ---- Ответ отправлен: 10.03.2007, 15:22
