Написать программу для решения задачи:

даны 2 числа а и b. Увеличить а в 2 раза, если оно больше b, иначе b увеличить на 2. Составить блок-схему.

Знания

Информатика

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

Помогите написать код в pascal для вычисления суммы ряда s=(x^2/2!)+(x^4/4!)+(x^6/6!)+...+(x^n/n!)

Saide

<h3>// PascalABC.NET 3.4.2, сборка 1814 от 02.10.2018</h3><h3>// Внимание! Если программа не работает, обновите версию!</h3>

begin

var x := ReadReal('x=');

var n := ReadInteger('n=');

var (k, p, q, s) := (x * x, 1.0, 1.0, 0.0);

for var i := 1 to n do

begin

p *= k;

q *= 2 * i * (2 * i - 1);

s += p / q

end;

Println('Сумма =', s)

end.

0 0

4 года назад

Помогите пожалуйста... Тестовое задание 1. End – оператор … 1. указывающий выход из подпрограммы 2. логическое отношение «И» 3.

любовь всей твоей...

1 = 1
2 = 2
3 = 3
4 = 2
5 = 2
6 = 4
7 = 1
8 = 4
9 = 5
<span>10 = 1</span>

0 0

5 лет назад

Даны целые положительные числа A и B найдите их наименьшее общее кратное НОК используя алгоритм Евклида: НОК(A,B)=НОК(B,A mod B)

Алексей2825

сори в начале не понял, что нужен евклид, я исправился:

0 0

6 лет назад

Задача такова. Нам дана программа, которая написана на Pascal ABC Net: uses Crt; var c:=random(1,16); begin TextColor(Green); wr

LunaSm

<span>uses Crt;
</span>var c,r:integer;
begin
TextColor(Green);
writeln('EASYMONEY 1.1');
TextColor(White);
repeat
c:=random(16)+1;
case c of
1,5,7,9,11,13,15: writeln(c,' - Красный');
2,4,6,8,10,12,14,16: writeln(c,' - Чёрный');
else writeln(c,' - Зелёный');
end;
writeln('Повторить? 1-Да, 0-Нет');
readln(r);
until r=0;
readln;
end.

0 0

5 лет назад

Определить истинность или ложность высказываний ¬((X>3) \/ (X<3)) \/ (X<1) при Х=2

Виолетта ппргп

¬((X>3) \/ (X<3)) \/ (X<1) =

¬((2>3) \/ (2<3)) \/ (2<1) =

¬((0) \/ (1)) \/ (0) =

¬(0 \/ 1) \/ 0 =

¬1 \/ 0 =

0 \/ 0 =

ложно

0 0

5 лет назад