Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Проверьте пожалуйста
Проверьте пожалуйста
На одном квадратном острове со стороной а была k робинзонов. Сколько еще робинзонов могут потерпеть крушение рядм с островом, если на одного робинзона нужно S квадратных метров площади острова.

Код программы
Code
program p4;

uses
   Crt;

var
   s, a: Real;
   k: Integer;

begin
   ClrScr;
   Write('Введите сторону острова: ');
   Readln(a);
   write('Введите кол-во робинзонов: ');
   readln(k);
   write('Сколько нужно S на 1 робинзона: ');
   readln(s);
   if (sqr(a) < k * s ) then
   begin
     write('Ваши робинзоны не помещаются :(');
   end
   else
   begin
     write('Можно поместить еще ', ( sqr(a) - k ) / s, ' робинзонов');
   end;
   Readkey;
end.
1 | Автор: Dtroy | 2012-09-26, 20:06   |  Репутация: [ + 0 ]
так а что проверять то?)

Нужна помощь? Сюда: vkontakte.ru/berestovskiy
2 | Автор: Berestovskiy | 2012-09-26, 20:35   |  Репутация: [ + 211 ]


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
2 | Автор: Berestovskiy | 2012-09-26, 20:35   |  Репутация: [ + 211 ]
Верно ли решено, а то я сомневаюсь
3 | Автор: Dtroy | 2012-09-26, 20:50   |  Репутация: [ + 0 ]
Завтра напишу код, сравнишь)

Нужна помощь? Сюда: vkontakte.ru/berestovskiy
4 | Автор: Berestovskiy | 2012-09-26, 21:59   |  Репутация: [ + 211 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Проверьте пожалуйста
  • Страница 1 из 1
  • 1
Поиск: