С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
JC
0 / 0 / 0
Регистрация: 05.10.2016
Сообщений: 35
1

По заданному натуральному числу N определите является ли оно трехзначным

30.11.2016, 18:08. Просмотров 388. Ответов 3
Метки нет (Все метки)

По заданному натуральному числу N определите является ли оно трёхзначным.

Формат входных данных
Во входном файле input.txt записано одно натуральное число N (1 ≤ N ≤ 10000).

Формат выходных данных
Если заданное число является трёхзначным, то в выходной файл output.txt выведите первую цифру этого числа, в противном случае выведите последнюю цифру этого числа.

Примеры
input.txtoutput.txt
155
3123
123400
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.11.2016, 18:08
Ответы с готовыми решениями:

По заданному числу определить, является ли оно целым.
напишите программу

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

Составить программу, вычисляющую по заданному натуральному числу n произведение n сомножителей
1. Составить программу, вычисляющую по заданному натуральному числу n ...

По заданному натуральному числу N вывести все натуральные числа не большие N
Напишите рекурсивную процедуру, которая по заданному натуральному числу N...

По заданному натуральному числу n построить систему из n вложенных друг в друга многоугольников
Пусть на плоскости задан правильный n-угольник, вписанный в единичную...

3
призрак579
2 / 2 / 1
Регистрация: 30.11.2016
Сообщений: 40
30.11.2016, 21:09 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
program werwwf;
uses crt;
var
   x,c1,c2,s: integer;
begin
    clrscr;
    write('Введите целое натуральное число от 1 до 10000: ');
    readln(x);
    while (x<1) or (x>10000) do
    begin
       write('Ошибка ввода! Введите еще раз: ');
       readln(x);
    end;
    s:=0;
    c2:=x mod 10;
    while x<>0 do
    begin
        c1:=x mod 10;
        s:=s+1;
        x:=x div 10
    end;
    if s=3 then writeln(c1)
           else writeln(c2);
    readkey;
end.
1
Cyborg Drone
Модератор
5479 / 3296 / 2482
Регистрация: 17.08.2012
Сообщений: 10,594
07.12.2016, 10:43 3
призрак579, судя по формату задания, это задание с так называемого "обучающего" или "олимпийского" сайта. Проверок делать не надо, приглашающие и поясняющие сообщения не использовать (вводить-выводить только то, что указано, никаких операторов для ожидания реакции пользователя, типа readkey; или readln;, это считается за ошибку), а если указано, что данные в файлах, то и нужно использовать файлы. Хотя последнее для некоторых сайтов и не обязательно. И ещё рекомендую Вам ознакомиться с правилами форума, а то Вы их уже успели нарушить.

Для сайта вот так нужно:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var n: integer;
    f: text;
begin
  assign(f, 'input.txt');
  reset(f);
  readln(f, n);
  close(f);
  assign(f, 'output.txt');
  rewrite(f);
  if (n > 99) and (n < 1000)
    then writeln(f, n div 100)
    else writeln(f, n mod 10);
  close(f)
end.
Не возмущайтесь. Я лично сам эти сайты ненавижу. В принципе, на них можно поднатореть в составлении алгоритмов, но в остальном - они своими идиотскими требованиями к оформлению программ и далеко не всегда адекватными системами оценок только вредят, да ещё и "обучают" плохому стилю программирования. Некоторые достигают на этих сайтах приличных высот, а read от readln отличить не могут.
0
JC
0 / 0 / 0
Регистрация: 05.10.2016
Сообщений: 35
10.12.2016, 17:50  [ТС] 4
спасибо
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.12.2016, 17:50

Написать программу, которая по заданному натуральному числу N определяет значение функции
Функция f(n) определена следующим образом: f(0)=0, f(1)=1, f(2n)=f(n),...

По заданному натуральному числу N необходимо вычислить количество натуральных чисел, которые являются делителями N!
По заданному натуральному числу N необходимо вычислить количество натуральных...

Задайте целое число, определите является ли оно делителем числа 34
Составить программу для решения задачи: задайте целое число, определите...


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

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

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