№1 Перевод из 20 степени в другие:а)1111011₂ ⇒16б)1110111₂ ⇒8№2 Перевод из 10 степени в другие:а)777₁₀ ⇒16б)2013 ⇒8в)35₁₀ ⇒2

Составить программу Pascal: Вводят число от 1-12 -номер месяца... Если число входит в интервал от 1 до 12, то высвечивается меся

Roma123312 [7]

Var months: array [1..12] of string;
    x: integer;

begin
months[1] := 'January';
months[2] := 'February';
months[3] := 'March';
months[4] := 'April';
months[5] := 'May';
months[6] := 'June';
months[7] := 'July';
months[8] := 'August';
months[9] := 'September';
months[10] := 'October';
months[11] := 'November';
months[12] := 'December';
read(x);
if ((x < 1) or (x > 12)) then begin
    write('Error!');
end else begin
    write(months[x]);
end;
end.

0 0

4 года назад

Составить алгоритм рыжего кота

solova [7]

Варианты могут быть разные

1) берем черного кота
2) связываем лапы
3) мажем всю шкуру осветлителем
4) ждем положенное время, слушая непрерывное мявканье
5) смываем осветлитель с кота
6) размешиваем хну с кипятком
7) мажем всю шкуру кота
8) ждем положенное время, слушая непрерывное мявканье
9) смываем хну с кота
10) развязываем лапы

должен получиться рыжый кот
но лучше так не делать) гринпис не одобрит

0 0

4 года назад

СИ1.На отрезке [2, n] найти все натуральные числа, сумма цифр которых при умножении числа на а не изменится.2. № 110

Денис1008 [13]

Какой номер вообще? а?

0 0

4 года назад

Помогите пжст даны 4 цифры. дописать программу, которая вычислит число по этим цифрам. var a0, a1, a2, a3: longint; Begin read(a

Настя5569 [28]

Var a0, a1, a2, a3, a: longint;
Begin
readln(a3, a2, a1, a0);
a:=a3*1000+a2*100+a1*10+a0;
write(a)
End.

Пример:
1 5 9 8
1598

0 0

3 года назад

Прочитать ещё 2 ответа

Вам дано две таблицы. Расшифруйте загаданное слово.

Меиргуль

Для расшифровки слова нужно таблицу с зелеными ячейками наложить на таблицу с буквами, выписывать "зеленые" буквы, повернуть таблицу на 90 градусов, выписать буквы и т.д.
Результат: благорастворение (чистота, свежесть, благоуханность воздуха).

0 0

4 года назад

Прочитать ещё 2 ответа