Объяснение:
думаю я помогла!!.так как я 6 класс
Var a,b,c:integer;
begin
readln(a);
b:=10;
while a>0 do
begin
c:=a mod 10;
if (c mod 2<>0) and (c<b) then b:=c;
a:=a div 10;
end;
if b<10 then write(b) else write('В числе нет нечетных цифр');
end.
1 Вариант
var a:integer;
begin
writeln('Введите номер месяца: ');
readln(a);
case a of
1:writeln('Зима');
2:writeln('Зима');
3:writeln('Весна');
4:writeln('Весна');
5:writeln('Весна');
6:writeln('Лето');
7:writeln('Лето');
8:writeln('Лето');
9:writeln('Осень');
10:writeln('Осень');
11:writeln('Осень');
12:writeln('Зима');
end;
end.
2 Вариант
var a:integer;
begin
writeln('Введите номер месяца: ');
readln(a);
if (a=12) or (a=1) or (a=2) then writeln('зима');
if (a=3) or (a=4) or (a=5) then writeln('весна');
if (a=6) or (a=7) or (a=8) then writeln('лето');
if (a=9) or (a=10) or (a=11) then writeln('осень');
end.
Поля «год издания» и «рейтинг» необходимо превратить в
числа. Простейший способ для этого: вставить в пустую ячейку 1/ копировать ее/
выделить столбей цифр/специальная вставка/умножить.
<span>Если строк много, то лучше сверху оставить несколько штук и
снизу, остальные скрыть. Когда необходимо можно отобразить. Сами формулы видны
в строке формул.</span>
Ответ: А
так как калькулятор предназначе для работы с арефмитическими числами