Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 16.11.2011, 17:44   #1 (permalink)
toxa777
Banned
 
Регистрация: 16.11.2011
Сообщений: 16
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Помогите написать программу

1.Дано натуральное число не менее шести разрядов. Найти сумму цифр данного числа стоящих на нечетных местах.
2.Составьте программу определения наименьшего общего кратного двух натуральных чисел.
3.Задано целое число N. Определить количество различных цифр числа N.
toxa777 вне форума   Ответить с цитированием

Старый 16.11.2011, 17:44
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

В ранее созданных темах можно найти важный ответ

Помогите, пожалуйста, написать программу на C++
Помогите написать программу
Помогите написать программу
Помогите написать программу
Помогите написать программу в Паскале

Старый 16.11.2011, 19:51   #2 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Вам обязательно на языке Modula-2, или Кобол сойдёт?
Vladimir_S вне форума   Ответить с цитированием
Старый 16.11.2011, 20:20   #3 (permalink)
toxa777
Banned
 
Регистрация: 16.11.2011
Сообщений: 16
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Желательно Паскаль)
toxa777 вне форума   Ответить с цитированием
Старый 17.11.2011, 20:17   #4 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Цитата:
Сообщение от toxa777 Посмотреть сообщение
Желательно Паскаль)
Ну тогда-то что...
Цитата:
Сообщение от toxa777 Посмотреть сообщение
1.Дано натуральное число не менее шести разрядов. Найти сумму цифр данного числа стоящих на нечетных местах.
Код:
VAR
 N,m,S:LongInt;

BEGIN
 Write('N= ');
 ReadLn(N);
 m:=1;
 Repeat
  m:=m*10;
 Until m>N;
 m:=m div 10;
 S:=N div m;
 Repeat
  m:=m div 10;
  if m>0 then
   begin
    N:=N mod m;
    m:=m div 10;
    if m>0 then
     S:=S+(N div m);
   end;
 Until m=0;
 Writeln('S= ',S);
 Readln
END.
Цитата:
Сообщение от toxa777 Посмотреть сообщение
2.Составьте программу определения наименьшего общего кратного двух натуральных чисел.
Код:
VAR
 N1,N2,M,i:LongInt;

BEGIN
 Write('N1= ');
 ReadLn(N1);
 Write('N2= ');
 ReadLn(N2);
 If N1>N2 then M:=N1 else M:=N2;
 i:=M-1;
 Repeat
  Inc(i);
 Until ((i mod N1)=0) and ((i mod N2)=0);
 Writeln('Result is ',i);
 Readln
END.
Цитата:
Сообщение от toxa777 Посмотреть сообщение
3.Задано целое число N. Определить количество различных цифр числа N.
Код:
VAR
 N:LongInt;
 S:String;
 i,j:Byte;

BEGIN
 Write('N= ');
 ReadLn(N);
 STR(N,S);
 i:=0;
 Repeat
  Inc(i);
  j:=i;
  repeat
   Inc(j);
   If S[j]=S[i] then
    begin
     Delete(S,j,1);
     Dec(j);
    end;
  until j=Length(S);
 Until i=Length(S)-1;
 Writeln('Number of different figures is ',Length(S));
 Readln
END.
Vladimir_S вне форума   Ответить с цитированием
Старый 20.11.2011, 20:59   #5 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Lizaveta, Ваш запрос перенесен в отдельную тему:
www.tehnari.ru/f41/t60058/
У нас не принято цепляться к чужим!
Vladimir_S вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Старый 09.12.2012, 15:48   #6 (permalink)
svoiachka
Новичок
 
Регистрация: 13.10.2012
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

как первую задачу с процедурой сделать?
svoiachka вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

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

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

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




Часовой пояс GMT +4, время: 00:29.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.