profile
Опубликовано 5 лет назад по предмету Информатика от Ролоницкий

Begin1. Даны два ненулевых числа. Найти их сумму, разность, произведение и частное.

  1. Ответ
    Ответ дан YniRus

    program odin; var a,b,sum,razn,proizv,chast:real;

    begin

    writeln('vvedite a');

    readln (a);

    writeln('vvedite b');

    readln(b);

    if (a<>0) and (b<>0) then begin writeln('summa=',a+b:0:0);

    writeln('raznost=',a-b:0:0);

    writeln('proizvedenie=',a*b:0:0);

    writeln('chastnoe=',a/b:0:1);

    end

    else writeln ('chiso ravno 0');                          

    end.

  2. Ответ
    Ответ дан vipdoc2012

    program odin; var a,b,sum,razn,proizv,chast:real;

    begin

    writeln('vvedite a');

    readln (a);

    writeln('vvedite b');

    readln(b);

    if (a<>0) and (b<>0) then begin writeln('summa=',a+b:0:0);

    writeln('raznost=',a-b:0:0);

    writeln('proizvedenie=',a*b:0:0);

    writeln('chastnoe=',a/b:0:1);

    end

    else writeln ('chiso ravno 0');                          

    end.

     
Самые новые вопросы