Нужно переделать программу из Pascal в VBasic - VB

  1. Попросили меня сделать программу, выполнил я её на Pascal, но надо на VisualBasic. Вот программа, выполняющая подсчет десятизначных чисел, в которых цифры не повторяются. С синтаксисом VB я не знаком, помогите пожалуйста.Pascal1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 program chisla; var x, i, k, j, b, sum: integer;     a: array [1..10] of integer; begin sum:=0; x:=1000000000; while (x<=9999999999) do {проверяем все десятизначные числа}     begin     b:=x;     for i:=1 to 10 do {представляем число в виде массива}             begin             a[i]:=b mod 10;             b:=b div 10;             end;       k:=0;     for j:=1 to 10 do {ищем совпадения}             begin             for i:=1 to 10 do             if (a[j]=a[i])and(j<>i) then k:=k+1;             end;       if (k=0) then {при отсутствии совпадения увеличиваем сумму на 1}             begin             writeln(x);             sum:=sum+1;             end;         x:=x+1; end; writeln('sum = ',sum); end.


textual

Код к задаче: «Нужно переделать программу из Pascal в VBasic - VB»

program Nya^_^4
var k,d:integer;
begin
k:=40;
if k mod 12 = 4 then d:=k
  else if k mod 12 < 5 then d:=2
     else if k div 12 > 4 then d:=3
         else d:=1;
writeln (d);
readln;
end.

СДЕЛАЙТЕ РЕПОСТ

15   голосов, оценка 4.000 из 5



Похожие ответы
  1. Разработать программу, которая вводит слово с клавиатуры и переставляет первые три и последние три буквы,сохранив при этом порядок их следования. Реализовать с помощью ОПЕРАТОРА ЦИКЛА. пример: ввод слова корреляция, вывод - циярелякор

  1. Даны два множества А и B c различным кол-вом элементов( в программе они в виде проинициализированных массивов). разработать программу, которая выводит объединение и пересечение этих множеств

  1. Помогите!!! Вот задача: Компьютер загадывает число от 0 до 100 Пользователь начинает отгадывать число. Если разница между загаданным числом и предложенным пользователем больше 30 выводится сообщение – Холодно Если разница от 20 до 30 – Выводится «тепло» От 10 до 20 – «Горячо» От 5 до 10 – «Почти угадал» От 1 до 5 – «Еще чуть-чуть!!!» Сделайте подсчет количества попыток за которые отгадано число

  1. Подскажите в чем ошибка, не получается что окружности красного и зеленого цвета не рисуется как окружности синего цвета

  1. как написать на vb программу, выводящую на консоле 'Hi, world!'(тип проекта консоль)

  1. Можно-ли сделать само обновляемую программу в vb6 . И как

  1. а может кто то подсказать как при открытии программы используя ComboBox или ListBox загрузить информацию из Excel, а в Excel была таблица не важно сколько строк но один столби чтобы было возможно выбрать любой ряд и его афишировать, а в стоках будут написаны целые предложения

  1. Товарищи, помогите пожалуйста. Необходимо составить программу автоматического переноса слов. Исходная информация вводится с клавиатуры. Заранее благодарен, за любую помощь!

  1. Помогите, пожалуйста Написать программу вычисления приближенного значения бесконечной суммы с точностью ε=0,0001 Задание на картинке. Пропустил лекцию, теперь не могу решить(

  1. Составить программу и вычислить:; Для организации цикла при вычислении Z1 использовать оператор цикла while..do.