Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

ПОМОГИТЕ ЕЩЁ ПАРОЧКУ ЗАДАЧ РЕШИТЬ

12K
24 ноября 2005 года
fynjy
10 / / 23.11.2005
ЕСЛИ НЕ ТРУДНО ПОМОГИТЕ ЕЩЁ ПАРОЧКУ ЗАДАЧ А ТО ПАЗАРЕЗ НАДО;

1)Дано натуральное число.Надо определить сколько раз первая цифра встречается в числе.


2)задача..Дано натуральное число,приписать к нему такое же.(с учётом того что вы не знаете сколько цифр в числе.

3)Найти сумму всех чисел от промежутка от А до В кратных 13 и 5 (А и В вводится с клавиатуры)

4)Найти сумму всех ТЕХ ЧИСЕЛ ФИБАНАЧИ <1000



ПОМОГИТЕ ИХ РЕШИТЬ ПАЗАРЕЗ НУЖНО СПАСИБО..
2.2K
24 ноября 2005 года
123tk
57 / / 28.06.2003
fynjy, не знать рещить одну две задачи, это еще понятно. Но просить вместо себя решить все задачи - это уже нахальство.
12K
24 ноября 2005 года
fynjy
10 / / 23.11.2005
ну реши хоть какие знаеш плиззз хоть две..
2.2K
24 ноября 2005 года
123tk
57 / / 28.06.2003
Цитата:
Originally posted by fynjy
ну реши хоть какие знаеш плиззз хоть две..

В качестве исключения, так как такие элементарные задачи чел ДОЛЖЕН уметь сам решать. И только наброски, т.е. без ввода вывода и оформления в виде ф-ии или процедуры.

Код:
var
  N, i, m: integer;
  cnt: integer;
  c: Char;
  s: String[16];
begin
  // Получаем откуда-то N
  // напр. N := 45465454;
  s := Str(N);
  m := Length(s);
  c := s[1];
  cnt := 1;
  for i := 2 to m do
    if c = s then Inc(cnt);
  // Вывод s
  // Вывод с
  // Вывод cnt
end;

Код:
Задача 2 непонятна, но
var
  N, m: Integer;
  s: String[32];
begin
  // Получить N
  s := Str(N);
  s := s + s;
  m := Val(s);
  // Вывод N
  // Вывод m
end;

Код:
var
  A, B: Integer;
  i, sum: Integer;
begin
  // Получить A, B
  sum := 0;
  for i := A to B do begin
    if ((i div 5)*5 = i) and ((i div 13)*13 = i) then
      sum := sum + i;
  end;
  // Вывести A B sum
end;
10K
24 ноября 2005 года
evgedka
22 / / 25.04.2005
А на каком языке надо (Бейсик, Паскаль или еще чего?..)
12K
24 ноября 2005 года
fynjy
10 / / 23.11.2005
ПАСКАЛЬ КОНЧНО..

Знаете кого-то, кто может ответить? Поделитесь с ним ссылкой.

Ваш ответ

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог