Язык программирования Pascal ABC
var n,k,i,j,d,c:integer;
label 1,2;
begin
1:writeln('Количество месяцев в календаре планеты Мульти:');
readln(n);
if (n>109)or(n<1) then
begin
writeln('Ошибка! Количество месяцев должно быть меньше или равно 109. Повторите ввод.');
goto 1;
end;
2:writeln('Номер дня на который приходится первое число первого месяца нового года:');
readln(k);
if (k>7)or(k<1) then
begin
writeln('Ошибка! Номер дня должен быть в диапозоне от 1 до 7. Повторите ввод.');
goto 2;
end;
d:=k;
for i:=1 to n do
begin
for j:=1+(k-1) to 30 do
begin
if (d=5)and(j=13) then c:=c+1;
d:=d+1;
if d>7 then d:=1;
end;
k:=1;
end;
writeln('Количество несчастливых дней в этом году: ',c);
end.
Program z1;
var s,p,i:integer;
begin
s:=0;
p:=1;
for i:= 1 to 10 do
if i mod 2 =0 then s:=s+i
else p:=p*i;
writeln('сумма четных',s);
writeln('произведение нечетных',p);
end.
1.Какие устройства ввода и вывода вы знаете?
2.Является ли камера устройством ввода?
3.Какие программы редактирования документов вы знаете?
4.Клавиатура считается устройством ввода?
5.Paint может редактировать документы?
6.World,Piant,Windows- что из них может редактировать?
<h2>Пункт A</h2>
<u>1.</u> 1⁷0⁶1⁵0⁴1³0²0¹1⁰₂ = 1 · 2⁷ + 0 · 2⁶ + 1 · 2⁵ + 0 · 2⁴ + 1 · 2³ + 0 · 2² + 0 · 2¹ + 1 · 2⁰ = 128 + 0 + 32 + 0 + 8 + 0 + 0 + 1 = 169₁₀
<u>2.</u> 3⁴2³3²3¹0⁰₄ = 3 · 4⁴ + 2 · 4³ + 3 · 4² + 3 · 4¹ + 0 · 4⁰ = 768 + 128 + 48 + 12 + 0 = 956₁₀
<u>3.</u> 169₁₀ + 956₁₀ = 1125₁₀
<u>4.</u>
1125 : 4 = 281 (1)
281 : 4 = 70 (1)
70 : 4 = 17 (2)
17 : 4 = 4 (1)
4 : 4 = 1 (0)
1125₁₀ = 101211₄
<h2>Ответ</h2>
101211
<h2>Пункт Б</h2>
Здесь какая-то ошибка, потому что в числе 2121321 с системой счисления 3 присутствует цифра 3, которая не может никак там находиться, так как в записи системе счисления с основанием 3 лишь 3 цифры - 0, 1 и 2.