с экселем. Кондитерская фабрика «Шоко и К°» для производства трех видов шоколада: A, B, и C использует три вида сырья: масло-какао, тертое какао и сахарную пудру.

Нормы расхода сырья на 1000 (кг) шоколада соответственно равны:

Требуется:

а) при электронной таблицы рассчитать:

− расход сырья каждого вида;

− выход сырья (итог);

− какао-массу (масло какао + тертое какао) в процентах;

− определить вид шоколада, зависящей от какао-массы, если какао-масса больше 50%, то вид шоколада «Горький», иначе шоколад «Молочный», и вывести «Белый», если меньше 32%;

б) построить диаграмму по расходу сырья каждого вида для производства шоколада А, В, С.

var s : string; k,f : longint; begin  readln(s);   val(s[1],k,f);   if f< > 0 then writeln('некоректно введена строка')   else if length(s)-1=k then writeln('равно')            else writeln('неравно'); end.

у васи флешка желтая. и больше флешки пети. значит, у пети или 4гб или 8гб.

егору не понравилась красная, значит красная у пети, а у егора зеленая.

суммарное колличество флешок васи и пети меньше, чем у егора,значит у егора флешка на 16гб, зеленая. у васи 8гб,желтая. и у пети 4гб, красная.

var n, n1, n2, n3, k: integer;

begin readln(n); n1 : = 1; n2 : = 1; n3 : = 2; k : = 0; if (n=1) or (n=2) then k : = 1; while n3 < = n do begin if n3=n then k : = 1; n1 : = n2; n2 : = n3; n3 : = n1 + n2; end; if k = 1 then writeln(n, ' является числом фибоначчи') else writeln(n, ' не является числом фибоначчи'); end.

решение для pascal abc

uses graphabc;

vara: integer; beginreadln(a); moveto(a,1); circle(a+a div 2,1,a div 4); lineto(a+a div 4,1); moveto(a+ (a div 4)*3,1); lineto (2*a,1); lineto(2*a,1+a); lineto (a,1+a); lineto (a,1); moveto (a,1+a); lineto (a-(a div 2),1+2*a); lineto(2*a+a div 2, 1+2*a); lineto(2*a,1+a); end.