Составьте программу, определяющую остаток от деления числа А на число В. Составьте программу, заменяющую большее из двух данных чисел модулем суммы, а
10-11 класс
|
меньшее – модулем полуразности этих чисел.(PASCAL)
1. program ostatok;
uses crt;
var a,b,ost:real;
begin
write('a= ');
readln(a);
write('b= );
readln(b);
ost:=a mod b;
write('ostatok ot delenia A na B raven ',ost);
readln;
end.
2. program modul;
uses crt;
var a,b,c,d: real;
begin
write('a= ');
readln(a);
write('b= );
readln(b);
c:=a-b;
if c>0 then
begin
a:=abs(a+b);
b:=abs((a-b)/2);
write('a= ',a,'b= ',b);
end
else
b:=abs(a+b);
a:=abs((b-a)/2);
write('a= ',a,'b= ',b);
end;
readln;
end.
Другие вопросы из категории
паскале.срочно!!
с правильном результатом..
число правильный ответ
21 неверно
121 неверно
777 верно
-777 верно
ТОЛЬКО ПРОГРАММУ НАПИСАТЬ!
Читайте также
целых числа N и K (1 <= N <= 10^100, 1 <= K <= 10^9) записанные в двух отдельных строках.
Выходные данные:В выходной поток выведите остаток от деления N на K.
Пример входного файла (input.txt): 239 16 Пример выходного файла (output.txt): 15ракета запускается с земли со скоростью V(км час) в направлении движения земли по орбите вокруг солнца. составить программу,определяющую результат запуска ракета в зависимости от скорости V.
Известно,что при V16,4 ракета покинет солнечную систему.
2. Составьте программу, определяющую, является ли данное число делителем числа 3.
3*. Составьте программу, заменяющую из двух данных чисел меньшее число суммой, а большее – произведением этих чисел.
"делятся на"использовать стандартную функцию MOD,которая определяет остаток отделение числа А на число В.Примечание таблица R целочисленная.Построение блок-схемы,алгоритм и бейсики.Заранее большое спасибо))