2 года назад

Помогите!Составьте пожалуйста алгоритм суммирования дробей.... A\B+X\Y

Знания

Информатика

1 ответ:

Наталия Миронова [7]2 года назад

0 0

1. Начало
2. Ввод A, B,X,Y
3. Если В=Y, то R=(A+Y)/B, иначе, R = (A*Y +X*B)/(B*Y)
4. Вывод результата R
5. Конец

Читайте также

Помогите пожалуйста, иначе у меня будет 2, за правильный ответ даю 30 баллов

Anna87654321 [55]

var a,b,c,d:integer;

begin

write('a = ');

readln(a);

write('b = ');

readln(b);

write('c = ');

readln(c);

write('d = ');

readln(d);

writeln('X = ',(a*a+b*b)-c+d);

if (a*a+b*b)-c+d>0 then writeln(a,' + ',b,' = ',a+b)

else writeln(c,' + ',d,' = ',c+d)

end.

0 0

4 года назад

1)2мбайт=?бит 1)8192бит=?кбайт помогите плиз((((

Warface

2мб = 2*1024*1024*8=16777216 бит
<span>8192бит= 8192:8:1024=1кб</span>

0 0

4 года назад

СРОЧНО,ПОМОГИТЕ,ПОЖАЛУЙСТА 1.Введите двузначное число. Поменяйте в нем порядок следования цифр (например, измените число 89 на ч

Elllll

program n1;

var num1,num2,i: integer;

numc: string;

begin

write('input number => ');

readln(num1);

numc:=inttostr(num1);

writeln(num1);

for i:=length(numc) downto 1 do

write(numc[i]);

end.

program n2;

var num1,num2,i,sum: integer;

numc: string;

begin

write('input number => ');

readln(num1);

numc:=inttostr(num1);

for i:=length(numc) downto 1 do

sum:=strtoint(numc[i])+sum;

writeln(sum)

end.

program n4;

var num1: integer;

numc: string;

begin

write('input number => ');

readln(num1);

numc:=inttostr(num1);

if numc[2]=numc[1] then writeln('yes')

else writeln('no');

end.

program n5;

var num1,num2,i: integer;

begin

write('input number 1 => ');

readln(num1);

write('input number 2 => ');

readln(num2);

if num1 mod num2 = 0 then writeln('yes')

else writeln('no');

end.

program n6;

var num1: real;

numc: string;

h: integer;

begin

write('input number => ');

readln(num1);

numc:=floattostr(num1);

h:=strtoint(numc[pos('.',numc)+1]);

writeln(h);

end.

0 0

4 года назад

Выберите наибольшее из чисел: АА.16, 251.8, 10011101.2. В ответ запишите выбранное число в десятичной системе счисления. Помогит

Юрсаныч

Ответ:

AA.16 наиболее из чисел

0 0

4 года назад

Напишите, пожалуйста, программу, которая решила бы задачу: "Ввести номер месяца и номер дня и вывести число дней, оставшихся до

Рома Герасимов [7]

$var \ day, \ m, \ sum, \ i:integer; \\
var \ t:array[1..12] \ of \ integer; \\
begin \\
t[1]:=31; \ t[2]:=28; \ t[3]:=31; \ t[4]:=30; \\
t[5]:=31; \ t[6]:=30; \ t[7]:=31; \ t[8]:=31; \\
t[9]:=30; \ t[10]:=31; \ t[11]:=30; \ t[12]:=31; \\
writeln('Month \ and \ day: \ '); \
readln(m, \ day); \
$
$sum \ := \ 0; \
for \ i \ := \ m \ to \ 12 \ do \ sum \ := \ sum \ + \ t[i]; \\
sum \ := \ sum \ - \ day \ + \ 1; \\
writeln(sum); \\
end. \\
 \\
 \\
$

0 0

4 года назад

Прочитать ещё 2 ответа