1. по натуральному числу х выяснить следующее за ним число. 2. по двум натуральным числам х и у дать ответ на вопрос : х> у х=у х
Ответы
function gcd(a,b:integer):integer;
// Нахождение НОД
begin
while b<>0 do
begin
a:=a mod b;
var i:=b; b:=a; a:=i
end;
Result:=a
end;
procedure Shorter(var a,b:integer);
// "сокращатель" дроби
begin
var k:=gcd(a,b);
a:=a div k;
b:=b div k
end;
begin
var a,b:integer;
Writeln('Введите числитель и знаменатель дроби: ');
Read(a,b);
Write(a,'/',b,'='); Shorter(a,b); Writeln(a,'/',b)
end.
Тестовое решение:
Введите числитель и знаменатель дроби:
25 15
25/15=5/3
Объяснение:
Під анімацією розуміють серію зображень, які відтворюються послідовно та імітують рух. Для її створення можна застосовувати програмні технології на зразок Adobe Flash, а також анімовані GIF-файли.
Аудіо (музика, голос, звукові ефекти) — невід’ємна частина багатьох мультимедійних продуктів. Наприклад, голос диктора в навчальних курсах, музичний супровід в іграх, підкасти (цифрові аудіофайли, що поширюються через Інтернет і призначені для відтворення на ПК та медіапрогравачах). Аудіо записують за до мікрофона або MIDI-іпструментів, наприклад MIDI-клавіатури, що імітує клавіатуру фортепіано.
Відео. На відміну від анімації, що складається з окремих зображень, які відтворюються послідовно, відео — це неперервний потік візуальної інформації, який розділяється па окремі кадри під час запису. Коли вони відтворюються з певною частотою (зазвичай ЗО кадрів/с), око сприймає їх як безперервний потік візуальної інформації. Відео отримують за до відеокамери, а розповсюджують за до телебачення, кінофільмів (записаних па носіях) та через Інтернет.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
var x, m: integer;
begin
x := 6;
m := x + 1;
end.
2.
var x, y: integer;
begin
x := 6;
y := 3;
if x>y then writeln('x>y - istinno')
else writeln('x>y - lozhno')
if x=y then writeln('x=y - istinno')
else writeln('x>y - lozhno')
if x<y then writeln('x<y - istinno')
else writeln('x>y - lozhno')
end.
3.
1.
var x, m: integer;
begin
x := 6;
if x-1>0 then m := x - 1;
end.
4.
var x, y, m: integer;
begin
x := 6;
y := 3;
if x-y>0 then m := x - y
else writeln('raznost ne imeet naturalnoe chislo')
end.
5.
var x, y, m: integer;
begin
x := 6;
y := 3;
m := x * y;
end.
6.
var x, y, m, n: integer;
begin
x := 6;
y := 3;
n := x / y;
m := x mod y;
end.