Mikhailova
?>

Решить алгоритмы с трассировочной таблицыЗначение переменной d после выполнения фрагмента алгоритма (div - частнос от деления, тod-остаток от деления) пока (b> 10) b b div 10a:=13 ; b:=124 ; d:=0 ; e:=-1пока (b>10)нц c: =a*(b mod 10)*e d:=d+c b:=b div 10 e:=e*10Cрочно

Информатика

Ответы

ludmila-malev280

Компьютер - сложная вычислительная техника, которая человеку, упрощая процесс создания и хранения информации. Одна из главных составляющих компьютера - это системный блок, монитор, клавиатура и компьютерная мышь - без них никуда. Процессор отвечает за все процессы, происходящие в системе. Оперативная память осуществляет эти самые действия. Любители компьютерных игр не обойдутся без хорошей видеокарты, с её повышается графика, за которую так же отвечает монитор и графический драйвер. Материнская плата тоже неотъемлемая часть ПК. Компьютеры- сложная и полезная техника.

sashakrotova943
PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018Внимание! Если программа не работает, обновите версию!

begin

 try

   var vData := ReadlnString('Введите дату по образцу дд.мм.гг:');

   if vData = '' then Exit;

   var s := vData.MatchValue('(\d\d\.){2}\d\d');

   if s = vData then

   begin

     var d := DateTime.Parse(s);

     $'День: {d.Day}{NewLine}Месяц: {d.Month}{NewLine}Год: {d.Year}'.Println

   end

   else

     'Дата введена не по образцу'.Println

 except

   'Такой даты в календаре не существует'.Println

 end

end.


Перевод программы с visual basic на ! sub dat() dim vdata as string on error goto metka vdata = inpu

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Решить алгоритмы с трассировочной таблицыЗначение переменной d после выполнения фрагмента алгоритма (div - частнос от деления, тod-остаток от деления) пока (b> 10) b b div 10a:=13 ; b:=124 ; d:=0 ; e:=-1пока (b>10)нц c: =a*(b mod 10)*e d:=d+c b:=b div 10 e:=e*10Cрочно
Ваше имя (никнейм)*
Email*
Комментарий*