В науке существует три подхода к пониманию феномена информации:
Атрибутисты полагают, что информация как семантическое свойство материи является неотъемлемым атрибутом всех систем объективной реальности, она существовала и существует вечно, является организующим началом в живой и неживой природе.
Var a,k,m,min,i,flag:integer; begin readln(a); m:=a; {сохраняю введенное значение и считаю кол-во цифр в числе} while m >0 do begin m:=m div 10; k:=k+1; end; min:=9; {записываю самое большое нечетное число} {в цикле отсекаю последнюю цифру в числе и проверяю ее на нечетность. Если она нечетная и меньше числа min, то сохраняю ее в min и присваиваю переменной Flag 1. Если к концу программы в переменной flag будет 1, значит хотя бы одна нечетная цифра в числе была, если flag=0 тогда в числе нет нечетных} for i:=1 to k do begin if (a mod 10<=min)and(a mod 2<>0) then begin min:=a mod 10; flag:=1; end; a:=a div 10; end; if flag=0 then writeln('нет нечетных') else writeln(min); end.
Program one;var a,b,c,d,e,g:integer;beginwriteln('Введите цену помидор за один килограмм (в рублях)');readln(a);writeln('Введите вес помидор');readln(b);writeln('Стоимость покупки: ',a*b,' руб');writeln('Введите цену огурцов за один килограмм (в рублях)');readln(c);writeln('Введите вес огурцов');readln(d);writeln('Стоимость покупки: ',c*d,' руб');writeln('Введите цену яблок за один килограмм (в рублях)');readln(e);writeln('Введите вес яблок');readln(g);writeln('Стоимость покупки: ',e*g,' руб');end. Также смотри вложение .
В науке существует три подхода к пониманию феномена информации:
Атрибутисты полагают, что информация как семантическое свойство материи является неотъемлемым атрибутом всех систем объективной реальности, она существовала и существует вечно, является организующим началом в живой и неживой природе.