Форум программистов, компьютерный форум CyberForum.ru
Наши страницы

Найти две первые цифры натурального числа - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Самоуничтожение файла http://www.cyberforum.ru/cpp-beginners/thread1219802.html
Как сделать штоб файл самоуничтожалса
C++ Какие значения будут у ячеек массива Какие значения будут у ячеек массива после выполнения следующего кода(псевдо)? Помогите пожалуйста, кто знает, то я путаюсь в таком. Заранее благодарен) int mss={1}; int *p1=mss, *p2=&mss;... http://www.cyberforum.ru/cpp-beginners/thread1219791.html
C++ Найти среднее значение
Скажите, что не правильно делаю? #include<iostream.h> #include<conio.h> #include<math.h> #include<windows.h> #include<stdio.h> #include<fstream.h> void main()
Простой парсер C++
По идее, программа должна справа налево пробегать каждый символ введенной строки и переводить их в числа, если встречается "+" или "-" конвертированное число прибавляется или вычитается из...
C++ Арифметическое выражение http://www.cyberforum.ru/cpp-beginners/thread1219746.html
составить структурную схему алгоритма и проект программы вычисления функции, один параметр ввести с клавиатуры, а другой задать как константу, все вычисляемые значения вывести на экран.
C++ Решение систем алгебраических уравнений Всех приветствую и желаю доброго дня! Нуждаюсь в помощи по разработке алгоритма задания на языке С++ Необходимо написать программу для решения алгебраических уравнений и нахождения корней системы... подробнее

Показать сообщение отдельно
Aleksey13_
0 / 0 / 0
Регистрация: 30.06.2014
Сообщений: 4

Найти две первые цифры натурального числа - C++

30.06.2014, 11:19. Просмотров 1457. Ответов 10
Метки (Все метки)

Задача
Дано натуральное число:
  • найти две первые цифры числа;
  • верно ли, что первая цифра числа четная.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var
  str: string;
  i,x: integer;
begin
  write('Введите натуральное число: ');
  readln(str);
  writeln('1-я цифра числа: ',str[1]);
  writeln('2-я цифра числа: ',str[2]);
  val(str[1],i,x);
  if i mod 2=0 then 
    writeln('1-я цифра числа четная') else
      writeln('1-я цифра числа нечетная');
  readln;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru