На трех заводах «Альфа», «Плутон» и «Рубин» иногда происходят аварии. Разместить сведения о количестве аварий на рабочем листе. В диапазоне В7:D10 получитьпроцент аварий, принимая за 100% общее число аварий за текущий год. Например, строкадля 2005 года должна выглядеть так, как в таблице (соблюдайте форматирование пообразцу, используйте абсолютные либ

бег - бог - бок - бак - мак - маг -шаг

(если сумма цифр числа делится на 3, то число делится на 3 нацело)

var a, s: integer;

begin

s: =0;

writeln ('введите число');

while a< > 0 do

begin

a: = a mod 10  

s: =s+a;

end;

if  s mod  3 = 0  then writeln ('делится') else

writeln ('не делится');

end.

program fasf;

var

n,q: integer;

begin

write('введите этаж: ');

readln(n);

q: =n*4;  

writeln('квартиры: ',q,q-1,q-2,q-3);

end. 

а:       где хотите, там и бранитесь, а на табаке помиритесь.

б:       умел ошибиться, умей и поправиться.

в:       рожь кормит сплошь, а пшеничка по выбору.

г:       всякая птица свое гнездо любит.

д:       широка дорожка ерошке.

е:       и мед горчит, если его много.

ж:     ржавое железо не блестит.

з:       если мало в привозе, то много в запросе.

и:       истина выдерживает проверку опытом.

к:       вода размывает канал в слабом месте.

л:       глупа та птица, которой гнездо свое не мило.

м:     на ходу подметки режет.

н:       где хвост — начало, там голова — мочало.

о:       всякой молодец на свой образец.

п:       закон — что паутина: шмель проскочит, а муха увязнет.

р:       дело сделал на копейку, а раструбил на всю деревню.

с:     долгие сборы на короткий век.

т:     юность — время золотое: ест, и пьет, и спит в покое.

у:     шито-крыто, а узелок-то тут.

ф:   два фонаря на пустой каланче.

х:     как не хитри, а правды не перехитришь.

ц:     цветет старость сединою.

ч:     к мягкому воску печать, к молодому – ученье.

ш:   шумит дубровушка к погодушке.

щ:   сигарета — щелчок по легким, бутылка пива — удар по почкам,           рюмка водки — убийство печени, кусок сала — прессинг желудка.

э:     каково эхо, такова и конюшня.

ю:   верный вассал двум сюзеренам не служит.

я:     откладывать в долгий ящик.