Var
a,y:integer;
begin
writeln('a=');
readln(a); {допустим что ввели значение 12}
if a>=5 then y:=2*a+5 else y:=a*a; {выполняется условие y:=2*a+5 ибо 12>=5}
writeln('y=',' ',y); {y=2*12+5 y=29}
readln*
end.
Короче ответ Г
Так как в коробке всего 31 шар, а дано 12 красных и 17 желтых, то мы можем найти количество шаров, цвет которых мы точно знаем(12+17=29). 29 меньше, чем 31, значит, цвет еще двух шаров мы узнать не можем, т.е они могут быть любого цвета. И, так как 29<31, ошибки в условии задачи нет(цвет двух оставшихся шаров просто не дан)
К алгоритмам можно отнести:
А) Правила ТБ (делай это, но не делай это: НЕ СТОЙ под стрелой)
Б) Инструкция по приготовлению пищи (ПОКА <вода> Не <закипела> ВЫПОЛНЯЙ)
Д) Планирование своего рабочего дня (Проснуться, Позвонить, Написать, Пойти, Вернуться, Лечь спать...)
Var a,b:string;
i: integer;
begin
write('Введите строку: '); readln(a);
b:='';
for i:= 1 to length(a) do b:=b+a[i]+a[i];
write('Новая строка: ',b);
end.
1канал*60cек*2байт*48.000гц=5,760,000 байт=5625 - кб => около 5 мб