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;
ПОМОГИТЕ ЕЩЁ ПАРОЧКУ ЗАДАЧ РЕШИТЬ
ЕСЛИ НЕ ТРУДНО ПОМОГИТЕ ЕЩЁ ПАРОЧКУ ЗАДАЧ А ТО ПАЗАРЕЗ НАДО;
1)Дано натуральное число.Надо определить сколько раз первая цифра встречается в числе.
2)задача..Дано натуральное число,приписать к нему такое же.(с учётом того что вы не знаете сколько цифр в числе.
3)Найти сумму всех чисел от промежутка от А до В кратных 13 и 5 (А и В вводится с клавиатуры)
4)Найти сумму всех ТЕХ ЧИСЕЛ ФИБАНАЧИ <1000
ПОМОГИТЕ ИХ РЕШИТЬ ПАЗАРЕЗ НУЖНО СПАСИБО..
1)Дано натуральное число.Надо определить сколько раз первая цифра встречается в числе.
2)задача..Дано натуральное число,приписать к нему такое же.(с учётом того что вы не знаете сколько цифр в числе.
3)Найти сумму всех чисел от промежутка от А до В кратных 13 и 5 (А и В вводится с клавиатуры)
4)Найти сумму всех ТЕХ ЧИСЕЛ ФИБАНАЧИ <1000
ПОМОГИТЕ ИХ РЕШИТЬ ПАЗАРЕЗ НУЖНО СПАСИБО..
fynjy, не знать рещить одну две задачи, это еще понятно. Но просить вместо себя решить все задачи - это уже нахальство.
ну реши хоть какие знаеш плиззз хоть две..
Цитата:
Originally posted by fynjy
ну реши хоть какие знаеш плиззз хоть две..
ну реши хоть какие знаеш плиззз хоть две..
В качестве исключения, так как такие элементарные задачи чел ДОЛЖЕН уметь сам решать. И только наброски, т.е. без ввода вывода и оформления в виде ф-ии или процедуры.
Код:
Код:
Задача 2 непонятна, но
var
N, m: Integer;
s: String[32];
begin
// Получить N
s := Str(N);
s := s + s;
m := Val(s);
// Вывод N
// Вывод m
end;
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;
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;
А на каком языке надо (Бейсик, Паскаль или еще чего?..)
ПАСКАЛЬ КОНЧНО..