Задать вопрос
Вход
Регистрация
Портал помощи студентам №1

Учебные работы на заказ без посредников
и переплат!

,

ул. Добролюбова, 16/2

support@professsor.com
Служба техподдержки
Меню
niknman12

Заказы niknman12

0
Науки
Науки
Экономические науки
Технические науки
Естественные науки
Математические науки
Программирование
Гуманитарные науки
Юридические науки
Иностранные языки
Работа с текстом
Дисциплины
Типы работ
Курсовая
Дипломная работа
Контрольная
Реферат
Статья
Решение задач
Отчет по практике
Шпаргалки
Чертеж
Рецензия
Лабораторная
Ответы на вопросы
Презентация
Перевод
Диплом МБА
Доклад
Диссертация
Бизнес-план
On-line тест
Другое
Статус заказа
В аукционе
Черновик
В работе
На гарантии
В корректировке
В арбитраже
Отменен
Завершен
В аукционе
Найти заказы

1 работа

Стоимость
Дата добавления
Срок сдачи
Решение задач
Visual Basic
29 ноября 2018 в 16:23
Basic
до 300
10 декабря
Описание работы

В аукционе

Ставки

220 — 530

Описание работы
niknman12

Нужно перевести из Паскаля в Visual Basic из стондартних задач cose 20 var D,M:Integer; begin Write('Введите День: '); Readln(D); Write('Введите Месяц: '); Readln(M); case M*100+D of 0120..0218:Writeln('Водолей'); 0219..0320:Writeln('Рыбы'); 0321..0419:Writeln('Овен'); 0420..0520:Writeln('Телец'); 0521..0621:Writeln('Близнецы'); 0622..0722:Writeln('Рак'); 0723..0822:Writeln('Лев'); 0823..0922:Writeln('Дева'); 0923..1022:Writeln('Весы'); 1023..1122:Writeln('Скорпион'); 1123..1221:Writeln('Стрелец'); 1222..1231,0101..0119:Writeln('Козерог'); end; end. Cose 8 var D,M:Integer; begin Write('Введите день: '); Readln(D); Write('Введите номер месяца: '); Readln(M); D:=D-1; if D=0 then begin M:=M-1; if M=0 then M:=12; Case M of 1,3,5,7,8,10,12 : D:=31; 4,6,9,11 : D:=30; 2 : D:=28; end; end; Writeln ('Предыдущая дата: ',D,'.',M); end.

Свернуть
Изменить ставку 220a Удалить ставку

Стоимость

a

Срок сдачи работы

Опубликовать Свернуть
a

Предоплата

50%
100%

Комментарий Пожалуйста, не указывайте контактные данные

Показать все способы оплаты
Вход на сайт
Войти
Необходима авторизация
Данная функция доступна только
для зарегистрированных пользователей
Пожалуйста, авторизуйтесь, или пройдите регистрацию
Войти
Подтвердите ваш e-mail

Для завершения регистрации подтвердите свой e-mail: перейдите по ссылке, высланной вам в письме.

После этого будет создан ваш аккаунт и вы сможете войти на сайт и в личный кабинет.

ОК