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

Перевести с паскаль на с++ (Найти количество четных цифр) - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Записать на место отрицательных элементов матрицы нули ,а на место положительных единицу http://www.cyberforum.ru/cpp-beginners/thread1166960.html
Дана квадратная матрица A. Записать на место отрицательных элементов матрицы нули ,а на место положительных единицу. Вывести на на печать нижнюю треугольную матрицу в общепринятом виде.
C++ Подскажите как вывести два массива рядом, а не под друг другом У меня есть две функции, которые выводят два массива. Подскажите как мне сделать так, чтоб они выводились рядом друг с другом, а не друг под другом, сначала один массив, потом второй. спасибо http://www.cyberforum.ru/cpp-beginners/thread1166931.html
Программа зацикливается C++
Программа зацикливается после ввода размеров массива. Подскажите пожалуйста, где ошибка. #include <iostream> void inn(int **, int, int); void found(int **,int,int); using namespace std; int...
C++ На С++ перенести в начало одномерного массива второй нулевой элемент
Помогите написать программу которая переносит в начало одномерного массива второй нулевой элемент.
C++ Найти произведение максимального элемента главной диагонали на минимальный элемент побочной диагонали http://www.cyberforum.ru/cpp-beginners/thread1166882.html
Всем привет! Мастера помогите доделать задание с матрицой. Вот само задание: Найти произведение максимального элемента главной диагонали на минимальный элемент побочной диагонали Ниже прикрепил...
C++ Из C# в C++ Помогите перевести код программы из C# в C++ using System; using System.Collections.Generic; using System.Linq; using System.Text; namespace ConsoleApplication1 { class Program { подробнее

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

Перевести с паскаль на с++ (Найти количество четных цифр) - C++

05.05.2014, 14:46. Просмотров 186. Ответов 1
Метки (Все метки)

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