<em>Ниже жирным шрифтом приведен код программы на Паскале. В фигурных скобках обычным шрифтом - комментарии. Можно их оставить - компилятор не сможет их прочитать и программа все равно будет работать.</em>
program printname;
var first_name, family_name : string;
i : byte;
begin
write('Введи свое имя: ');
readln(first_name);<em>{считываем имя в переменную first_name}</em>
write('Введи свою фамилию: ');
readln(family_name); {считываем фамилию в переменную family_name}
for i := 1 to 10 do writeln(family_name, ' ', first_name);<em>{В цикле for со счетчиком i изменяющимся от 1 до 10 печатаем строки с фамилией и именем через пробел}</em>
end.
Using System;
static int Main()
{<span> int n = 1;</span>
<span> for (int i = 1; i <= 5; i++)
</span><span> {
</span><span> for (int z = 1; z <= i; z++)</span><span>
{</span><span>
Console.Write(n);
</span><span>Console.Write("\t");
</span><span>}
</span><span>n++;
</span><span>Console.Write("\n");
</span><span>}</span>return 0;
<span>}</span>
1 шаг) Расставляем степенной ряд.
11010(2)=?(10)
1 в (4-степени) 1 в (3) 0 в (2) 1 в (1) 0 в (0)
2 шаг) Сумируем произведение цыфры числа умноженый на основание настоящей системой счистления в степени которая приписана к цифре.
0x2(0)+1x2(1)+0x2(2)+1x2(3)+1x2(4)=2+8+16=26(10)
11010(2)=26(10)
Надеюсь понятно написал...
//PascalABC.NET 3.1 сборка 1239
uses System;
begin
var m := ReadInteger('Введите номер месяца =>');
var d := new DateTime(DateTime.Now.Year, m, 1);
var k := 0;
repeat
if d.Day mod 2 = 0 then k += 1;
d := d.AddDays(1);
until d.Month <> m;
writeln(k);
end.