Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/4: Рейтинг темы: голосов - 4, средняя оценка - 4.50
Анастасия1
0 / 0 / 0
Регистрация: 05.04.2010
Сообщений: 46
#1

Узнать первую и последнюю цифру и сумму цифр

05.04.2010, 22:40. Просмотров 702. Ответов 2
Метки нет (Все метки)

помоги пожалуйста решить в паскале
1) Дано чило А, узнать чётное ли оно
2) 100<=N<=999
Узнать первую и оследнюю цифру и сумму цифр

решать самым простым способом через
program
var
begin
readln(
if then begin
writeln('.....i');
readln;
end; РЕШАТЬ можно ЧЕРЕЗ DIV и MOD
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
05.04.2010, 22:40
Ответы с готовыми решениями:

Определить первую цифру, сумму цифр, количество цифр в числе N
Дано натуральное число n. Определить: а) Первую цифру числа N. б) сумму цифр...

Составить программу, подсчитывающую количество цифр числа n, сумму его цифр и определяющую его первую цифру
1)Дано натуральное число n. Составить программу, подсчитывающую количество цифр...

Поменять местами первую и последнюю цифру в числе
var num : integer; //num=p last, first : integer; ...

Отбросить первую и последнюю цифру четырехзначного числа
2.2 Введите 4-значное число. Превратите его в 2-значное, отбросив первую и...

Для натурального числа N определить первую и последнюю цифру.
Для натурального числа N определить первую и последнюю цифру. Выяснить какая...

2
Жека-старший
Студент
496 / 344 / 162
Регистрация: 15.03.2010
Сообщений: 601
05.04.2010, 22:42 #2
Лучший ответ Сообщение было отмечено Анастасия1 как решение

Решение

1-ая

Pascal
1
2
3
4
5
6
7
8
program pr1;
var a:integer;
begin
  writeln('Vvedite chislo');
  readln(a);
  if a mod 2=0 then writeln('Chetnoe')
  else writeln('Nechetnoe');
end.
0
TAVulator
3951 / 1110 / 160
Регистрация: 27.07.2009
Сообщений: 3,457
05.04.2010, 22:43 #3
Цитата Сообщение от Анастасия1 Посмотреть сообщение
1) Дано чило А, узнать чётное ли оно
if odd(A) then Нечетное else Четное
Цитата Сообщение от Анастасия1 Посмотреть сообщение
2) 100<=N<=999
Узнать первую и оследнюю цифру и сумму цифр
первая: N:=A div 100;
последняя: N:=A mod 10;
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
05.04.2010, 22:43

Дано натуральное число n. Переставить первую и последнюю цифру числа n
Дано натуральное число n. Переставить первую и последнюю цифру числа n.

Дано трехзначное целое число, найти первую и последнюю цифру.
Помогите решить!!! Дано трехзначное целое число, найти первую и последнюю цифру.

Во всех словах заменить первую букву на последнюю, а последнюю на первую. Как считывать каждое слово?
Ребята, написал программу, выполняла свое предназначение, но меня преподаватель...


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

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

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