4 года назад

Составить программу на компе в паскале по алгоритму

Знания

Информатика

1 ответ:

polozova [50]4 года назад

0 0

Ну вот,вроде сделал все по твоей блок-схеме : znanija переименуй на любое название - это название твоей программы

program znanija;
var m,n: integer; begin write('Введите два числа (через пробел) '); readln(m,n); if (m <> n) then if (m>n) then m:=m-n else if (m<n) then m:=n-m else writeln(m); writeln(m);end.

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

Ребяяят, помогите, пожалуйста с экселем 80 БАЛЛОВ

Валерий200

J2=0+8+9+4+3+6=30

J3=30-9*2=12

J4=(8+9+3+4)/4=24/4=6

J5=30

J6=(1+8)^2=9^9)2=81

0 0

3 года назад

Запишите в виде инструкции присваивания формулу вычисления площади круга: s=π*r^1 на Паскале

MISHIN [37]

Можно записать как:
s := 3,14 * r * r
или
s := pi * r * r
если есть константа числа пи

0 0

4 года назад

Ребята срочно помогите Диапазон A1:C3 электронной таблицы содержит цифры :Формула - AVERAGE ($A1:A1) записана в ячейке D1 и скоп

svet61 [20]

Правильна відповідь:

1 1,5 2

2 2,5 3

3 3,5 4

Скопійована формула обчислює середнє арифметичне між числом у першій клітинці рядка і числом у поточній клітинці. Наприклад для клітинки Е2 формула матиме вигляд =AVERAGE($A2:B2)

[2(А2)+3(В2)]/2=2.5

0 0

4 года назад

Напишите программу вычисления наименьшего общего кратного следующих четырёх чисел: 36 54 18 и 15. Используйте процедуру вычислен

натаkmz

// НОД(a,b)*НОК(a,b)=a*b
procedure nod(x,y: integer; var n: integer);
begin
repeat
if x>y then x:=x mod y
else y:=y mod x;
until (x=0)or(y=0);
n:=x+y;
end;
var a,b,c,d,e,n: integer;
begin
readln(a,b,c,d);
nod(a,b,n);
e:=a*b div n;
nod(c,e,n);
e:=c*e div n;
nod(d,e,n);
Writeln('НОК = ',d*e div n);
end.

Пример:
36 54 18 15
<span>НОК = 540</span>

0 0

4 года назад

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

Что такое посылки помогите поже

Алексей0212

Посылка это - такая вещь, короче, коробка и в ней предмет, и его можно передать из дальних городов или стран, вот это и называют посылкой

0 0

4 года назад