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

Узнай цену своей работы

Формулировка задачи:

Попросили меня сделать программу, выполнил я её на Pascal, но надо на VisualBasic. Вот программа, выполняющая подсчет десятизначных чисел, в которых цифры не повторяются. С синтаксисом VB я не знаком, помогите пожалуйста.

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

textual
Листинг программы
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 из 5
Похожие ответы