Составить программу, которая в цикле принимает значение с клавиатуры

@Хайзенберг777 · Регистрация: 15.04.2015

Author24 — интернет-сервис помощи студентам

Составить программу, которая в цикле принимает значение с клавиатуры. Если значение является числом, то программа выводит слово "число", если значение текстом, то выводит слово " текст".

@bormant · 29.06.2015, 09:53

Pascal

{$I-}
var
  n: Real;
begin
  WriteLn('Вводите числа или текст. Окончание ввода: -1');
  repeat
    Write('> '); Read(n);
    if IOResult=0 then WriteLn('число') else WriteLn('текст');
  until n=-1;
end.

@Хайзенберг777 · 29.06.2015, 10:12 **[ТС]**

Спасибо, но там ещё должно тоже самое что про число только с текстом.

@bormant · 29.06.2015, 13:07

Сообщение от Хайзенберг777

должно тоже самое что про число только с текстом

Переведите, пожалуйста, на русский язык. А то почти как в том анекдоте, угадал все буквы, но не смог прочесть слово.

Добавлено через 13 минут
Пример выполнения

Код

Вводите числа или текст. Окончание ввода: -1
> 1
число
> 23
число
> a
текст
> bc
текст
> -1
число

@Хайзенберг777 · 29.06.2015, 19:41 **[ТС]**

Спасибо большое!!!

@Хайзенберг777 0 / 0 / 0 Регистрация: 15.04.2015 Сообщений: 39
		1
	Составить программу, которая в цикле принимает значение с клавиатуры 29.06.2015, 09:41. Показов 1197. Ответов 4 Метки нет (Все метки) Составить программу, которая в цикле принимает значение с клавиатуры. Если значение является числом, то программа выводит слово "число", если значение текстом, то выводит слово " текст". 0

@Хайзенберг777 0 / 0 / 0 Регистрация: 15.04.2015 Сообщений: 39
	29.06.2015, 10:12 [ТС]	3
	Спасибо, но там ещё должно тоже самое что про число только с текстом. 0

@bormant Модератор 7769 / 4598 / 2823 Регистрация: 22.11.2013 Сообщений: 13,077 Записей в блоге: 1
	29.06.2015, 13:07	4
	Сообщение от Хайзенберг777 должно тоже самое что про число только с текстом Переведите, пожалуйста, на русский язык. А то почти как в том анекдоте, угадал все буквы, но не смог прочесть слово. Добавлено через 13 минут Пример выполнения Код Вводите числа или текст. Окончание ввода: -1 > 1 число > 23 число > a текст > bc текст > -1 число 0

@Хайзенберг777 0 / 0 / 0 Регистрация: 15.04.2015 Сообщений: 39
	29.06.2015, 19:41 [ТС]	5
	Спасибо большое!!! 0

Опции темы

Составить программу, которая в цикле принимает значение с клавиатуры

Решение