очень Определи значения переменных a и b после выполнения фрагмента алгоритма. В ответ запишите сначала a потом b через точку с запятой без пробел
a:=42;
b:=14;
a:=a div b
b:=a * b
a:=b div a
2
Определи значения переменной с после выполнения фрагмента алгоритма
a:=15;
b:=30;
b:=a*2 - b/2;
if a > b then c:=3*b - a/3
else c:=3*a - 4*b;
3
Переведи десятичное число 231 в двоичную и шестнадцатеричную систему счисления. ответы запиши без указания СС через точку с запятой (сначала двоичная СС потом восьмеричная)
4
Переведи двоичное число 10011012 в десятичную систему счисления. Запиши ответ без указания СС.
5
Реши задачу с кругов Эйлера.
По за было найдено следующее число стр.:
Картина V Пейзаж = 20 000
Картина & Пейзаж = 14 000
Картина = 16 000
Сколько стр будет найдено по за Пейзаж?
В ответе укажи только полученное число страниц.
program months;
{$APPTYPE CONSOLE}
uses SysUtils;var i:Integer;begin Write ('Vvedite nomer mesyaca'); Writeln(i); Readln(i);
case i of 1: Writeln ('January-1,2,3,4,5,6,7,8'); 2: Writeln ('February-22,23'); 3: Writeln ('March-8'); 4: Writeln ('April-net'); 5: Writeln ('May-1,8,9'); 6: Writeln ('June-12'); 7: Writeln ('July-net'); 8: Writeln ('August-net'); 9: Writeln ('September-net'); 10:Writeln ('October-net'); 11:Writeln ('November-4,5,6'); 12:Writeln ('December-net'); end; Readln
{ TODO -oUser -cConsole Main : Insert code here }end.
Там даты (номера) праздничных дней можете подправить, как вам надо!