1. Взять лопату
2. Вырыть яму.
3. Взять ведро
4. Полить водою
5. Взять семя
6. Посадить семя
7.Взять лопату
8.Закопать яму
9. Взять ведро
10. Полить водой
Var i,b:integer;
begin
b:=1;
i:=1;
while i<23 do begin
b:=b*i;
i:=i+3
end;
print(b);
end.
Ответ:1
a)94810(10) = 10111001001011010(2)=271132(8)=1725A(16)
Б)76310(10)=10010101000010110(2)=225026(8)=12A16(16)
2
а)111000111(2) = 455(10)
б)100011011(2)=283(10)
В)335(8)=221(10)
г)14C(16)=332(10)
Объяснение:
Var i,n,s:integer;
begin
read(n);
i:=2;
s:=1; {иначе не зайдешь в цикл вообще, т.к. изначально S=0]
while s<>0 do
begin
s:= n mod i;
if s <> 0 then
i:=i+1;
end;
writeln (i);
<span>end.</span>
using System;
namespace Application
{
class MainClass
{
public static void Main (string[] args)
{
int dvm = 0;
Console.WriteLine ("Введите номер месяца:");
int mec = Convert.ToInt32 (Console.ReadLine());
Console.WriteLine ("Введите день:");
int den = Convert.ToInt32 (Console.ReadLine());
if (mec > 0 && mec < 13 && den > 0 && den < 32) {
switch (mec) {
case 1:
dvm = 0;
break;
case 2:
dvm = 31;
break;
case 3:
dvm = 59;
break;
case 4:
dvm = 90;
break;
case 5:
dvm = 120;
break;
case 6:
dvm = 151;
break;
case 7:
dvm = 181;
break;
case 8:
dvm = 212;
break;
case 9:
dvm = 243;
break;
case 10:
dvm = 273;
break;
case 11:
dvm = 304;
break;
case 12:
dvm = 334;
break;
}
int dng = 365 - (dvm + den);
Console.WriteLine ("До нового года осталось " + dng + " дней");
Console.ReadLine ();
} else {
Console.WriteLine ("Ошибка");
Console.ReadLine ();
}
}
}
}
