|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
07.06.2017, 06:45 | #1 |
Новичок
Джуниор
Регистрация: 07.06.2017
Сообщений: 3
|
Программка по VBA
Добрый день! Помогите пожалуйста написать программку на VBA у верен что для настоящих программеров это займет не больше 5 мин.
Задачка звучит так. Написать программу, которая считает количество четных и нечетных чисел среди N чисел. В зарание спасибо огромное. |
07.06.2017, 08:01 | #2 |
Новичок
Джуниор
Регистрация: 07.06.2017
Сообщений: 3
|
Или помогите перевести в VBA
var x,z,k:integer;
begin readln(x); k:=0; while x>0 do begin z:=x mod 10; if z mod 2=0 then k:=k+1; x:=x div 10; end; writeln(k); end. |
07.06.2017, 08:11 | #3 |
2 the Nation Glory
Старожил
Регистрация: 27.05.2014
Сообщений: 3,289
|
Откуда такая уверенность? Как человек, который не может найти четные числа, может судить о сложности решения?
https://www.google.com.ua/search?q=v...XrB8udXqi8opAN Код:
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы. |
07.06.2017, 10:23 | #4 |
Форумчанин
Регистрация: 09.05.2017
Сообщений: 735
|
Клевая программа!:D Я если честно подумал, что ему надо от 1 до N числа подряд числа посчитать. Автор Вам как нужно на самом деле-то?
Напишу программу на C++ и Asm для AVR. Черчение: sergeisky@yahoo.com.
|
07.06.2017, 11:50 | #5 | |
Новичок
Джуниор
Регистрация: 07.06.2017
Сообщений: 3
|
var x,z,k:integer;
begin readln(x); k:=0; while x>0 do begin z:=x mod 10; if z mod 2=0 then k:=k+1; x:=x div 10; end; writeln(k); end. Цитата:
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Программка | vatrac | Помощь студентам | 3 | 24.04.2012 21:10 |
Программка | vadiprog | Помощь студентам | 2 | 03.10.2011 00:32 |
Программка в VBA Office 2003 | Иннчик | Microsoft Office Excel | 2 | 02.11.2010 19:27 |
Программка | Longround | Фриланс | 8 | 31.07.2010 10:50 |
программка на VBA | LSDkltn | Microsoft Office Excel | 0 | 07.11.2009 11:21 |