|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
16.11.2011, 17:44 | #1 (permalink) |
Banned
Регистрация: 16.11.2011
Сообщений: 16
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите написать программу
2.Составьте программу определения наименьшего общего кратного двух натуральных чисел. 3.Задано целое число N. Определить количество различных цифр числа N. |
16.11.2011, 17:44 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
В ранее созданных темах можно найти важный ответ Помогите, пожалуйста, написать программу на C++ Помогите написать программу Помогите написать программу Помогите написать программу Помогите написать программу в Паскале |
17.11.2011, 20:17 | #4 (permalink) | ||
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Ну тогда-то что...
Цитата:
Код:
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. Цитата:
Код:
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. Код:
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. |
||
20.11.2011, 20:59 | #5 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Lizaveta, Ваш запрос перенесен в отдельную тему:
www.tehnari.ru/f41/t60058/ У нас не принято цепляться к чужим! |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
09.12.2012, 15:48 | #6 (permalink) |
Новичок
Регистрация: 13.10.2012
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
как первую задачу с процедурой сделать?
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|