Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.73/11: Рейтинг темы: голосов - 11, средняя оценка - 4.73
0 / 0 / 0
Регистрация: 14.04.2010
Сообщений: 15
1

Найти сумму первой и последней цифр заданного числа и разделить её на 2

14.04.2010, 19:52. Показов 2156. Ответов 1
Метки нет (Все метки)

значит такие пироги...
учитель попросил решить следущие задачи в строковых переменных:

1.найти сумму первой и последней цифр заданного числа и разделить её на 2.

2.в заданном числе заменить все цифры 2 на 5 и разделить новое число на 5.

3.найти произведение цифр заданного числа.

4.разделить произведение цифр заданного числа на сумму этих же цифр.

5.найти разность первой и последней цифр заданного числа.

и вот еще одна очень важная задачка - с клавиатуры вводится символ напечатать 2 рядом стоящих символа справа и слева по таблице ASCII и их номера (!)

пожалуйста помогите решить и отнеситесь с уважением
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
14.04.2010, 19:52
Ответы с готовыми решениями:

Найти количество и сумму цифр, сумму первой и последней цифр заданного числа z
Дано число z. Найти: количество цыфр в нём, сумму цыфр числа z, первую та последнюю цыфры числа z....

Найти сумму первой и последней цифр заданного натурального числа
Очень надо решение задачи, иначе препод не поставит зачёт. Сам я в программировании полный ноль. ...

Найти сумму первой и последней цифр числа
Дано натурально число н найти сумму первого и последнего элемента этого числа.

Найти число, полученное при перестановке первой и последней цифр заданного трёхзначного числа
Дано трехзначное число. Найти число, полученное при перестановке первой и последней цифр заданного...

1
156 / 158 / 93
Регистрация: 01.01.2010
Сообщений: 398
14.04.2010, 20:17 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

1
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
program tmp;
uses crt;
var
   st:string;
   x,x1,x2,code,code1:integer;
begin
clrscr;
readln(x);
str(x,st);
val(st[1],x1,code);
val(st[length(st)],x2,code1);
write('rez= ',(x1+x2)/2:3:1);
readkey;
end.
Добавлено через 2 минуты
2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
program tmp;
uses crt;
var
   st:string;
   i,x,x1,code:integer;
begin
clrscr;
readln(x);
str(x,st);
for i:=1 to length(st) do
if st[i]='2' then st[i]:='5';
val(st,x1,code);
write('rez= ',x1/5:3:1);
readkey;
end.
Добавлено через 3 минуты
3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
program tmp;
uses crt;
const count=100;
var
   st:string;
   i,x,p,code:integer;
   mas:array[1..count] of integer;
begin
clrscr;
readln(x);
str(x,st);
for i:=1 to length(st) do
val(st[i],mas[i],code);
p:=1;
for i:=1 to length(st) do p:=p*mas[i];
write('proizv: ',p);
readkey;
end.
Добавлено через 2 минуты
4
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
program tmp;
uses crt;
const count=100;
var
   st:string;
   i,x,p,s,code:integer;
   mas:array[1..count] of integer;
begin
clrscr;
readln(x);
str(x,st);
for i:=1 to length(st) do
val(st[i],mas[i],code);
p:=1;
s:=0;
for i:=1 to length(st) do begin
                          p:=p*mas[i];
                          s:=s+mas[i];
                          end;
write('proizv: ',p/s:3:2);
readkey;
end.
Добавлено через 1 минуту
5
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
program tmp;
uses crt;
var
   st:string;
   x,x1,x2,code,code1:integer;
begin
clrscr;
readln(x);
str(x,st);
val(st[1],x1,code);
val(st[length(st)],x2,code1);
write('razn= ',x1-x2);
readkey;
end.
Добавлено через 7 минут
6
Pascal
1
2
3
4
5
6
7
8
9
program tmp;
uses crt;
var ch:char;
begin
clrscr;
readln(ch);
write('pred: ',chr(ord(ch)-1),' numpred: ', ord(ch)-1,'; posl: ',chr(ord(ch)+1),' numposl: ',ord(ch)+1);
readkey;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
14.04.2010, 20:17

Целочисленная арифметика: найти сумму первой и последней цифр числа
дано натуральное число n. найти сумму первой и последней цифр этого числа

Выделить все цифры числа и найти сумму первой и последней цифр
Дано целое число F. Выделить все цифры этого числа и найти сумму первой и последней его цифр.

Дано натуральное число n, найти сумму первой и последней цифр данного числа
Значит есть пару заданий по информатики, а в ней я полный профан Помогите написать пару программ,...

Найти произведение и сумму второй и последней цифр заданного четырехзначного числа
Дано четырехзначное число. Найти произведение и сумму второй и последней цифр заданного числа.


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.