Здесь нужен цикл с параметром
Чертить ромбик не буду, это и так понятно.
Условие: "Фасоль белая"
ответ ДА, команда "<span>положить фасолину в белую коробку"
ответ НЕТ, команда "</span><span>положить фасолину в серую коробку"</span>
Хотелось бы узнать название языка.
Var b, c: integer;
begin
Writeln('Введите ваш возраст');
Readln(b);
if b <= 0 then
WriteLn('Вам 0 лет')
else begin
c := b mod 100;
if (c >= 10) and (c <= 20) then WriteLn('Вам ', b, ' лет')
else
case (b mod 10) of
1: WriteLn('Вам ', b, ' год');
2..4: WriteLn('Вам ', b, ' года');
5..9, 0: WriteLn('Вам ', b, ' лет')
end;
end;
Writeln('Для выхода нажмите <Enter>');
Readln;
end<span>.</span>
.............................................
I) В двоичную
а) 89 = 01011001
б) 600 = 001001011000
в)2010 = 011111011010
ll) В восьмеричную
а) 513 = 1001
б) 600 = 1130
в) 2010 = 3732
lll) В шеснадцатиричную
а) 513 = 201
б) 600 = 258
в) 2010 = 7DA