Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program first; var i,a,b: integer; begin cls; read(a,b,i); if a< 0 then write(sqr(a));
if b< 0 then write(sqr(b));
if i< 0 then write(sqr(i))end.
1 simvol zanimaet 1 bait(tak kak imeem tekst);
tekst shpargalki sostavliaet 50*50=2500 simvolov-2500 bait.
da + eshe 0,3*2500=750.
vsego 2500+750=3250 bait.
program p;
var s,a,b,c: string; begins: =' фигуры'; writeln('введите названия трёх фигур'); read(a,b,c); writeln(s,': ',a,', ',b,' и ',c); end.
составим двоичную матрицу:
молоко лимонад квас вода
бутылка 0 1 0 0
стакан 0 0 0 1
кувшин 1 0 0 0
банка 0 0 1 0
в кувшине - молоко
в бутылке - лимонад
в банке - квас
в стакане - вода
Популярные вопросы