Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов > Языки программирования > Pascal
Перезагрузить страницу F1!F1!F1!Помогите, пожалуйста, решить задачи!
Ответ
 
Опции темы Опции просмотра
  (#1 (permalink)) Старый
Lexa15 Lexa15 вне форума
Новичок
 
Сообщений: 2
Сказал(а) спасибо: 1
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 07.11.2011
Exclamation F1!F1!F1!Помогите, пожалуйста, решить задачи! - 07.11.2011, 13:56

1. Дано вещественное число (А>1). Вывести наибольшее из целых чисел N, для которых сумма 1+1/2+...+1/N будет меньше А, и саму эту сумму.

2. Дано натуральное число n. Выяснить входит ли цифра 3 в запись числа n^2, и если нет, то поменять порядок цифр числа n на обратный, в противном случае приписать единицу в начало числа n.
Ответить с цитированием
  (#2 (permalink)) Старый
wanja wanja вне форума
Member
 
Сообщений: 584
Сказал(а) спасибо: 1
Поблагодарили 25 раз(а) в 25 сообщениях
Регистрация: 08.05.2005
По умолчанию 08.11.2011, 11:08

1)
pascal Код:
N=1;
sum:=0;
prev:=0;
while sum<a do
   begin
   prev:=sum;
   sum:=sum+1/N;
   inc(n);
   end;
writeln('N=',N,' Sum=',sum);
Ответить с цитированием
Пользователь сказал cпасибо:
Lexa15 (09.11.2011)
  (#3 (permalink)) Старый
Lexa15 Lexa15 вне форума
Новичок
 
Сообщений: 2
Сказал(а) спасибо: 1
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 07.11.2011
По умолчанию 09.11.2011, 02:50

спасибо!
Ответить с цитированием
  (#4 (permalink)) Старый
Белкашу Белкашу вне форума
Member
 
Сообщений: 107
Сказал(а) спасибо: 2
Поблагодарили 1 раз в 1 сообщении
Регистрация: 30.10.2011
По умолчанию 09.11.2011, 10:19

Попробуй опосля end,поставить не точку с запяятой,а две точки
Ответить с цитированием
Ads
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите решить задачи по C++ pom-ivanov Вопросы начинающих программистов 0 20.12.2011 01:28
Помогите пожалуйста решить задачи в паскале!!!)))буду очень признательна)) Лиия Pascal 5 09.12.2011 23:53
Помогите решить задачи! Skillet Prolog 10 04.12.2011 02:27
Помогите пожалуйста решить задачи в паскале!!!)))буду очень признательна)) Лиия Pascal 1 01.12.2011 11:38
Помогите решить задачи........ 77799 Assembler 2 09.11.2011 00:03
Помогите пожалуйста решить задачи на программе DrRacket!!!очень нужно!!! VKhan Lisp 3 22.10.2011 12:46
Помогите пожалуйста решить две задачи :( Sw_92 Visual Basic 0 12.04.2011 22:58
помогите, пожалуйста, решить задачи на Pascal! Лапочка Pascal 1 18.06.2010 10:37
Помогите решить задачи Gros Prolog 1 27.12.2009 18:55
Помогите решить задачи Vovchik4417 Prolog 0 11.12.2009 17:56
Помогите,пожалуйста, решить задачи! Елена Лунёва Форум программистов 1 23.12.2008 22:18
Помогите решить задачи SH@DOW Юмор 12 18.09.2006 16:10



Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Нardforum.ru - компьютерный форум и программирование, форум программистов