Новые сообщения · Правила  
Страница 1 из 11
Модератор форума: Berestovskiy 
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Разветвления, Простейшая целочисленная арифметика
Разветвления, Простейшая целочисленная арифметика
Помогите решить задачи, по темам "Разветвления" и "Простейшая целочисленная арифметика"
45.Даны действительные числа a, b, c, d. Если a≤ b ≤ c ≤ d, то
каждое число заменить наибольшим из них; если a>b>c>d, то оставить
без изменения; в противном случае все числа заменяются их
квадратами.
65. Дано натуральное число n (n>99). Выяснить, верно ли, что n 2
равно кубу суммы цифр числа n.
1 | Автор: andrenalin | 2012-10-16, 20:18   |  Репутация: [ + 0 ]
1 | Автор: andrenalin | 2012-10-16, 20:18   |  Репутация: [ + 0 ]
Quote (andrenalin)
Помогите решить задачи, по темам "Разветвления" и "Простейшая целочисленная арифметика"
45.Даны действительные числа a, b, c, d. Если a≤ b ≤ c ≤ d, то
каждое число заменить наибольшим из них; если a>b>c>d, то оставить
без изменения; в противном случае все числа заменяются их
квадратами.

var
a,b,c,d:integer;
if(a<=b)and(b<=c)and(c<=d) then begin
if (a>b)and(a>c)and(a>d) then begin b:=a;c:=a;d:=a;end;
if (b>a)and(b>c)and(b>d) then begin a:=b;c:=b;d:=b;end;
if (c>a)and(c>b)and(c>d) then begin a:=c;b:=c;d:=c;end;
if (d>a)and(d>b)and(d>c) then begin a:=d;b:=d;c:=d;end;
end;
writeln(a,' ',b,' ',c,' ',d);
//а какой другой случай может быть? либо числа подряд меньше равно следующему либо меньше
end.


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
2 | Автор: Berestovskiy | 2012-10-16, 23:04   |  Репутация: [ + 211 ]
Спасибо. А как решается 65 задача?
65. Дано натуральное число n (n>99). Выяснить, верно ли, что $$n^{2}$$
равно кубу суммы цифр числа n.
3 | Автор: andrenalin | 2012-10-17, 18:18   |  Репутация: [ + 0 ]
var
sum,n:integer;
begin
read(n);
sum:=0;
while n mod 10<>0 do begin
sum:=sum + n mod 10;
n:=n div 10;end;
if sum*sum*sum=n*n then writeln('yes') else writeln('no');
end.


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
4 | Автор: Berestovskiy | 2012-10-17, 18:47   |  Репутация: [ + 211 ]


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
4 | Автор: Berestovskiy | 2012-10-17, 18:47   |  Репутация: [ + 211 ]
Quote (Berestovskiy)
Спасибо.

"Спасибо" принимается в виде повышения репутации ( Зелёный плюсик:) ).Спасибо


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
5 | Автор: Berestovskiy | 2012-10-17, 18:48   |  Репутация: [ + 211 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Разветвления, Простейшая целочисленная арифметика
Страница 1 из 11
Поиск: