4 года назад

Помогите составить Блок-схему и программу для вычисления суммы и произведения 3 чисел

Знания

Информатика

1 ответ:

bissaliev4 года назад

0 0

Program zadacha;
var a,b,c,s,p: integer;
begin
writeln ('Введите три числа');
readln (a,b,c);
s:=a+b+c;
p:=a*b*c;
writeln ('Сумма равна ',s);
writeln ('Произведение равно ',p);
end.

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

Переменные – это: величины, которые могут менять свое значение в процессе выполнения программы величины, которые не могут менять

Игорь Владимиров [40]

Переменные - это величины, которые могут менять свое значение в процессе выполнения программы.

0 0

4 года назад

Алгоритм евклида для вычисления нод двух натуральных чисел формируется так нужно заменять большее число на разность большего и м

olcka1983 [397]

Var
a,b:integer;
begin
Write('Введите два натуральных числа '); Readln(a,b);
while a<>b do
if a > b then a := a - b
else b := b - a;
Writeln('НОД=',a)
end.

Тестовое решение:
Введите два натуральных числа 28 16
НОД=4

0 0

4 года назад

Напишите программу. Введите с клавиатуры действительное число x и натуральное число N. Рассчитайте и выведите на экран значение

Andrei S [77]

{Я не до конца понимаю роль переменной n в данной задаче. Если задать большое значение данной переменной, программа вернёт NaN}
//Pascal ABC.NET v3.1 сборка 1172

Var
x,r:real;
n,i,k:integer;

function fact(n:integer):real;
Var
i,k:integer;
begin
k:=1;
for i:=1 to n do
k:=k*i;
fact:=k;
end;

begin
readln(x);
readln(n);
k:=1;
r:=0;
for i:=1 to n do
begin;
if odd(i) then
 r:=r+power(x,k)/fact(k)
 else
 r:=r-power(x,k)/fact(k);
k:=k+2;
end;
writeln(r);
end.

Пример ввода:

1
10
Пример вывода:

0.841470972080175

0 0

4 года назад

Каково основное назначение растровых графических редакторов?(кратко)

deshtina Midgardow

1) Высокая скорость обработки;
2) Растровая графика используется сейчас практически везде;
3) Воспроизводит почти любой рисунок

0 0

4 года назад

Написать программу для сортировки массива b(5) по возрастанию.Ввод осуществляется случайным образом

Михаилглазков

// PascalABC.NET 3.3, сборка 1573 от 04.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
var a:=ArrRandom(5,-50,50); a.Println;
a.Sort; a.Println
end.

Пример
-5 19 -32 34 20
-32 -5 19 20 34

0 0

1 год назад

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