1 / 1 / 0
Регистрация: 15.02.2011
Сообщений: 49
1

Напишите пожалуйста полные программы

04.04.2011, 18:15. Показов 2243. Ответов 3
Метки нет (Все метки)

96) Дано натуральное число n. Найти сумму первой и последней цифры этого числа.
97) Дано натуральное число n. Переставить местами первую и последнюю цифры этого числа.
98) Даны 2 натуральных числа m и n(m<=9999, n<=9999). Проверить, есть ли в записи числа m цифры, одинаковые с цифрами в записи числа n.
99) Дано натуральное число n. Проверить, есть ли в записи числа 3 одинаковые цифры(n<=99).
100) Дано натуральное число n<=99. Дописать к нему цифру k в конец и в начало.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
04.04.2011, 18:15
Ответы с готовыми решениями:

Напишите пожалуйста программы
433. Даны действительные числа s, t, a0,..., a12. Получить 2 3 p(1)-p(t)+p (s-t)-p (1),...

НАПИШИТЕ ПОЖАЛУЙСТА ПРОГРАММЫ НА ПАСКАЛЕ .ЧЕРЕЗ ФУНКЦИЮ ИЛИ ПРОЦЕДУРУ!
РЕШИТЕ ПОЖАЛУЙСТА !!!!!!!!!! ЗАВТРА КОНТРОЛЬНАЯ ПО ЭТИМ ЗАДАЧАМ!!!!!!!! ПРОШУ СИЛЬНО!!!!!!! ХОТЯ...

напишите,пожалуйста,программы
пожалуйста,напишите программы.12 программу не надо.

Напишите пожалуйста программы с фото
Буду благодарен за решение задач с фото

3
22 / 22 / 9
Регистрация: 08.03.2011
Сообщений: 155
04.04.2011, 18:25 2
96 задача
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
uses crt;
var N,M,k,cn,b,c1:longint;
begin
clrscr;
write('N=');readln(N);
cn:=N mod 10; {последняя цифра}
while N>0 do
  begin
  c1:=N mod 10; {первая цифра}
  N:=N div 10; {число без последней цифры}
  end;
write('Summa 1+posl cifr=',cn+c1);
readln
end.
Добавлено через 2 минуты
97 задача

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
uses crt;
var N,M,k,cn,b,c1:longint;
begin
clrscr;
write('N=');readln(N);
cn:=N mod 10; {последняя цифра}
M:=N; {запоминаем число}
k:=1;
while N>0 do
  begin
  c1:=N mod 10; {первая цифра}
  k:=k*10;    {степень 1-й цифры*10}
  N:=N div 10; {число без последней цифры}
  end;
N:=M-c1*(k div 10)+cn*(k div 10)-cn+c1;
{из числа вычитаем первую цифру со всеми нолями,
прибавляем последнюю цифру с таким же количеством нолей,
вычитаем последнюю цифру и прибавляем первую, например 1234-1000+4000-4+1=4231}
write('Nper=',N);
readln
end.
Добавлено через 3 минуты
98 задача
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
program lol;
var m,n,a,a1,b,b1,c,c1,d,d1,z:integer;      \\z-ответ.1-есть одинаковые,0-нету одинаковых.
begin
      z:=0
      a:=m div 10;
      b:=(m div 100)-a;
      c:=(m div 1000)-b-a;
      d:=m-b-a-c
;
      a1:=n div 10;
      b1:=(n div 100)-a1;
      c1:=(n div 1000)-b1-a1;
      d1:=n-c1-b1-a1
;
      if a=a1 then z:=1;
      if (b>0) and (b=b1) then z:=1;
      if (c>0) and (c=c1) then z:=1;
      if (d>0) and (d=d1) then z:=1       \\и так далее пока не проверишь все числа между собой(типа а и б1)
;
      writeln(z);
      readln;
end.
1
Платежеспособный зверь
8772 / 4203 / 1610
Регистрация: 28.10.2009
Сообщений: 11,334
04.04.2011, 18:41 3
96 всё ещё проще:
Pascal
1
2
3
4
5
6
7
8
9
10
11
var 
N:longint;
s:integer;
begin
;readln(N);
s:=n mod 10;
while N>9 do
  N:=N div 10;   
write(s+n);
readln;
end.

Цитата Сообщение от Алина Carrot Посмотреть сообщение
99) Дано натуральное число n. Проверить, есть ли в записи числа 3 одинаковые цифры(n<=99).
если n<=99, откуда в нём 3 цифры?


Для чисел, больших 99:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var
N:longint;
a:array[0..9]of integer;
i,f:integer;
begin
readln(n);
do
inc(a[n mod 10]);
n:=n div 10;
until n=0;
for i:=0 to 9 do
if a[i]=3 then f:=1;
if f=1 then writeln('yes')else writeln('no');
readln;
end.
Добавлено через 6 минут
Цитата Сообщение от Алина Carrot Посмотреть сообщение
100) Дано натуральное число n<=99. Дописать к нему цифру k в конец и в начало.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var
m,n,k,t:integer;
begin
readln(n);
readln(k);
m:=n;
t:=1;
repeat
m:=m div 10;
t:=t*10;
until m=0;
n:=(k*t+n)*10+k;
writeln(n);
readln;
end.
или ещё проще:
Pascal
1
2
3
4
5
6
7
8
9
var
n,k:integer;
begin
readln(n);
readln(k);
if n>9 then n:=k*1000+n*10+k else n:=k*100+n*10+k;
writeln(n);
readln;
end.
0
124 / 120 / 54
Регистрация: 10.02.2011
Сообщений: 202
04.04.2011, 18:41 4
100
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
uses crt;
var a,b,k:integer;
begin
clrscr;
b:=0;
write('vvedite chislo: ');
readln(a);
write('vvedite k: ');
readln(k);
if (a<10)and(a>=0) then b:=(k*100)+(a*10)+k;
if (a>9)and(a<100) then b:=(k*1000)+(a*10)+k;
if (a<0)and(a>99) then writeln('a doljno prinadlijat otrezku [0;99]');
writeln(b);
readln;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
04.04.2011, 18:41
Помогаю со студенческими работами здесь

Напишите пожалуйста простенькие программы на С++.
Программа 1. При помощи генератора чисел создать одномерный массив. Длинна массива задается...

Напишите пожалуйста код программы по фото заданию!
П.5.18.Правил Запрещено размещать задания и решения в виде картинок и других файлов с их текстом....

Напишите пожалуйста Код программы генерирующей случайные величины но не функцией Rand
Напишите пожалуйста Код программы генерирующей случайные величины но не функцией Rand а как -...

Пожалуйста напишите код программы вычисляющий общую площадь треугольника на PHP
Здравствуйте напишите пожалуйста скрипт программы вычисляющий общую площадь треугольника на PHP....


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru