ответ: к задаче А
var a,b:integer;
x:real;
begin
writeln('Введите число а');
readln(a);
writeln('Введите число b');
readln(b);
if(a < b) then
x:= a/b+5;
if(a = b) then
x:= -5;
if(a > b) then
x:= (a*a-b)/b;
writeln('ответ: x = ', x);
end.
ответ: к задаче B
var a,b:integer;
x:real;
begin
writeln('Введите число а');
readln(a);
writeln('Введите число b');
readln(b);
if(a < b) then
x:= a/b+1;
if(a = b) then
x:= -1;
if(a > b) then
x:= (a*b-5)/a;
writeln('ответ: x = ', x);
end.
Пояснения:
для начала заносятся данные в две переменные, а потом с условного оператора IF сравнивается два значения и заносится ответ в переменную X по условной формуле
Поделитесь своими знаниями, ответьте на вопрос:
Форматы представления данных для обмена между различными пакетами прикладных программ." найти. перечислите и немного о каждом.
· общего назначения (универсальные);
· метод-ориентированные;
· проблемно-ориентированные;
· сетей;
· организации (администрирования) вычислительного процесса.