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

Ввести с клавиатуры три символа. Если хотя бы два из них являются цифрами, вывести все символы в строчку через три пробела

23.01.2013, 12:40. Показов 1702. Ответов 1
Метки нет (Все метки)

Ввести с клавиатуры три символа. Если хотя бы два из них являются цифрами, вывести все символы в строчку через три пробела.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.01.2013, 12:40
Ответы с готовыми решениями:

Вывести первые три символа и последний три символа, если длина строки больше 5
Дана строка. Вывести первые три символа и последний три символа, если длина строки больше 5. Иначе...

Ввести с клавиатуры три числа, вывести на экран среднее из них
Ввести с клавиатуры три числа, вывести на экран среднее из них. Т.е. не самое большое и не самое...

Дано три числа. Если ровно два из них меньше 5, то вывести yes, иначе вывести no
Дано три числа. Если ровно два из них меньше 5, то вывести yes, иначе вывести no. Подскажите...

Дана строка. Вывести первые три символа и последние три символа
Доброе утро, господа. Необходима Ваша помощь по решению этого вопроса, вроде как и не сложно, но в...

1
Почетный модератор
64089 / 47498 / 32734
Регистрация: 18.05.2008
Сообщений: 115,182
23.01.2013, 13:01 2
Лучший ответ Сообщение было отмечено Матвей как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
uses crt;
var i,k:byte;
    c:array[1..3] of char;
begin
clrscr;
k:=0;
for i:=1 to 3 do
 begin
  write('Введите символ c=');
  readln(c[i]);
  if c[i] in ['0'..'9'] then k:=k+1;
 end;
if k>1 then
 begin
  for i:=1 to 3 do
  write(c[i]:4)
 end
else write('Нет двух цифр');
readln
end.
2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.01.2013, 13:01

Даны три числа a, b, c. Если хотя бы одно из них равно нулю с погрешностью
Даны три числа a, b, c. Если хотя бы одно из них равно нулю с погрешностью e=0,01 , то вычислить...

Ввести три строки s, s1, s2 c клавиатуры и если в s встречается s1,
Ввести три строки s, s1, s2 c клавиатуры и если в s встречается s1, то сформировать новую строку, в...

Дано три точки . Определить расстояние от них до начала координат. Координаты ввести с клавиатуры
Задача такая Дано три точки . Определить расстояние от них до начала координат. Координаты ввести...

9. Ввести три числа А, В, С . Удвоить каждое из них , если А>=В>=С, иначе поменять значения А и В
Ввести три числа А, В, С . Удвоить каждое из них , если А>=В>=С, иначе поменять значения А и В.

Ввести три числа А,В,С. Удвоить каждое из них если A>=B>=C, иначе изменить зачения А и В
Ввести три числа А,В,С. Удвоить каждое из них если A>=B>=C, иначе изменить зачения А и В.

Ввести три числа А,В,С. Удвоить каждое из них если A>=B>=C, иначе изменить зачения А и В
Ввести три числа А,В,С. Удвоить каждое из них если A>=B>=C, иначе изменить зачения А и В.


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

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

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