Решите две задачи на паскале
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя  |
| Сообщение |
<< Старые топики Новые топики >> |
|
|
Решите две задачи на паскале - 2008-12-11 05:36:50.823333
|
|
|
AL1GaT0R
Сообщений: 380
Оценки: 0
Присоединился: 2008-08-21 02:34:25.283333
|
Доброго время суток!
Надо решить две задачки на паскале к пятнице, а у меня совсем времени нету, может кому не лень будет решат:
1. Заданы площади круга и квадрата. Определить, поместится ли квадрат в круге
2. Найти все двух значные числа, у которых сумма цифр делится на числа а
Благодорю за внимание…
|
|
|
|
|
RE: Решите две задачи на паскале - 2008-12-11 09:04:57.340000
|
|
|
K1ller
Сообщений: 94
Оценки: 0
Присоединился: 2008-11-25 23:19:36.140000
|
var i,a,s,n :longint;
begin
readln(a);
n:=0;
for i := 10 to 99 do
begin
s:=s+i mod 10;
s:=s+i div 10;
if (s mod a)=0 then writeln(i);
s:=0;
end;
end.
Вторая задача
|
|
|
|
|
RE: Решите две задачи на паскале - 2008-12-11 09:13:03.703333
|
|
|
K1ller
Сообщений: 94
Оценки: 0
Присоединился: 2008-11-25 23:19:36.140000
|
var s_circle,s_quad,max_square :real;
const pi=3.141592;
begin
readln(s_circle,s_quad);
max_square :=s_circle/pi;
if(s_quad<=max_square) then writeln('Yes') // поместится
else writeln('No'); //не поместится
end.
Ну и первая. Думаю, правильно. В круг ведь не влезет квадрат со стороной большей чем радиус.
|
|
|
|
|
RE: Решите две задачи на паскале - 2008-12-11 11:15:28.836666
|
|
|
KentOne
Сообщений: 178
Оценки: 0
Присоединился: 2008-07-15 16:30:46.030000
|
quote:
В круг ведь не влезет квадрат со стороной большей чем радиус.
Вполне влезит, вот со стороной больше, чем корень с 2 умноженное на радиус круга, врядли.
var s_circle,s_quad,max_square :real;
const pi=3.141592;
begin
readln(s_circle,s_quad);
max_square :=s_circle/pi;
if(s_quad<=[size="3"][b]2*[/b][/size]max_square) then writeln('Yes') // поместится
else writeln('No'); //не поместится
end.
|
|
|
|
|
RE: Решите две задачи на паскале - 2008-12-11 12:10:09.590000
|
|
|
_SaZ_
Сообщений: 4329
Оценки: 398
Присоединился: 2008-01-30 02:18:05.553333
|
–
|
|
|
|
|
|
