Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 03.07.2008, 14:50   #1
sting
Форумчанин
 
Аватар для sting
 
Регистрация: 03.07.2008
Сообщений: 114
По умолчанию Друзья помогите пожалуйста с задачками!

Товарищи я попал! Помогите мне пожалуйста решить задачи! скоко сможете! плиз! завтра экзамен! Надеюсь бесплатно! а то денег нету! спасибо заранее! Не дайте пропасть!
Люди гибнут за МЕТАЛ!!!

Последний раз редактировалось sting; 03.07.2008 в 20:39.
sting вне форума
Старый 03.07.2008, 14:55   #2
B_N
Новичок
Джуниор
 
Регистрация: 18.01.2008
Сообщений: 1,720
По умолчанию

Бесплатно? 50 задачек? За полдня? Хорошая шутка. Ищите по форуму, многие уже были и неоднократно. Или фриланс.
--------------------
Ба... да их уже больше чем 50....
B_N вне форума
Старый 03.07.2008, 15:52   #3
Карась
Участник клуба
 
Аватар для Карась
 
Регистрация: 26.10.2007
Сообщений: 1,244
По умолчанию

Цитата:
Сообщение от B_N Посмотреть сообщение
Бесплатно? 50 задачек? За полдня? Хорошая шутка. Ищите по форуму, многие уже были и неоднократно. Или фриланс.
--------------------
Ба... да их уже больше чем 50....
Будет проще и быстрее прочитать и освоить краткий курс по паскалю чем решить все эти задачи.

Спасение утопаещего дело рук самого утопающего.
Умом Россию не понять, пока не выпито ноль пять,
А если выпито ноль пять всё делом кажется не хитрым,
Попытка глубже понимать уже попахивает литром...
Карась вне форума
Старый 03.07.2008, 17:06   #4
puporev
Старожил
 
Регистрация: 13.10.2007
Сообщений: 2,740
По умолчанию

Да зачем тебе 84 задачи, если завтра экзамен, ты ведь их даже переписать не успеешь. Ищи другой вариант.
puporev вне форума
Старый 03.07.2008, 20:45   #5
sting
Форумчанин
 
Аватар для sting
 
Регистрация: 03.07.2008
Сообщений: 114
По умолчанию

Памагите доделать задачку! плиз!

3 Среди двузначных чисел найдите те, сумма квадратов цифр которых делится на 13.


ogram zada4a_3;
var
i1,i2: integer;

begin

for i1:=1 to 9 do
for i2:=0 to 9 do
if ((i1*i1)+(i2*i2))/13=3
then
write (i1,i2 , ' ');
readln;
end.

Я могу сделать что бы он пару цифр в ответе выдал тока! меняя ТРОЙКУ на другое число! а как сделать что бы все выдавал? я уже устал думать!
Люди гибнут за МЕТАЛ!!!
sting вне форума
Старый 03.07.2008, 20:56   #6
puporev
Старожил
 
Регистрация: 13.10.2007
Сообщений: 2,740
По умолчанию

Цитата:
if ((i1*i1)+(i2*i2))/13=3
При такой записи программа при типе Integer вообще не должна работать. И при чем здесь 3?
Код:
uses crt;
var i1,i2:byte;
begin
clrscr;
for i1:=1 to 9 do
for i2:=0 to 9 do
if (i1*i1+i2*i2) mod 13=0 then
   begin
    write(i1,i2,' ');
   end;
readln
end.
puporev вне форума
Старый 03.07.2008, 21:04   #7
sting
Форумчанин
 
Аватар для sting
 
Регистрация: 03.07.2008
Сообщений: 114
По умолчанию

Цитата:
Сообщение от puporev Посмотреть сообщение
При такой записи программа при типе Integer вообще не должна работать. И при чем здесь 3?
Код:
uses crt;
...................
clrscr;
...................

а что это такое??
Люди гибнут за МЕТАЛ!!!
sting вне форума
Старый 03.07.2008, 21:07   #8
puporev
Старожил
 
Регистрация: 13.10.2007
Сообщений: 2,740
По умолчанию

uses crt; модуль для работы с экраном и клавиатурой.
clrscr; процедура, очищающая экран от предыдущих записей.
Если у Вас нет такого модуля(редко, но бывает) то удалите эти строки.
puporev вне форума
Старый 03.07.2008, 21:28   #9
sting
Форумчанин
 
Аватар для sting
 
Регистрация: 03.07.2008
Сообщений: 114
По умолчанию

помоги плиз с этой задачей! а то вообще понять не могу чё тут делать нада!

4 Напишите программу поиска двузначных чисел, таких, что если к сумме цифр этого числа прибавить квадрат этой суммы, получится это число.


желательно если не сложно то с пояснениями
Люди гибнут за МЕТАЛ!!!
sting вне форума
Старый 03.07.2008, 21:36   #10
puporev
Старожил
 
Регистрация: 13.10.2007
Сообщений: 2,740
По умолчанию

Все же написано в условии.
Код:
uses crt;
var i1,i2:integer;
begin
clrscr;
for i1:=1 to 9 do
for i2:=0 to 9 do
if i1+i2+sqr(i1+i2)=10*i1+i2   //к сумме цифр i1+i2 прибавляем квадрат этой суммы sqr(i1+i2) и если это все равно числу 10*i1+i2 , выводим
then writeln(i1,i2);
readln
end.
puporev вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите, пожалуйста с задачками по Паскалю Космонавт Помощь студентам 20 13.06.2008 00:14
помогите с задачками SYL@R Помощь студентам 9 09.06.2008 18:49
Помогите с задачками OlgaMiller Общие вопросы C/C++ 25 25.10.2007 21:05
Помогите пожалуйста с 2-мя задачками Shatyn Помощь студентам 1 13.06.2007 15:42
Выручте пожалуйста с тремя задачками ByteMan Помощь студентам 8 07.06.2007 23:39