//Dev-C++ 5.11
#include <iostream>
using namespace std;
int main(void)
{float a,b;
cin>>a>>b;
if(a==0 && b==0)
cout<<"No solve";
else
if (b==0)
cout<<"No solve";
else
if(a==0)
cout<<"(-infinity;+infinity)";
else
{if(b>0 && a>0) cout<<"(-infinity;"<<a/b<<")";
if(b<0 && a>0) cout<<"("<<a/b<<";+infinity)";
if(b>0 && a<0) cout<<"("<<a/b<<";+infinity)";
if(b<0 && a<0) cout<<"(-infinity;"<<a/b<<")";}
return 0;}
Пример ввода:
1
-7
Пример вывода:
(-0.142857;+infinity)
a = 6 => b = 18 - 3 = 15
<em>a < b(6 < 15) - да</em>
<em>b < 2 - нет, b = 15 - 2 = 13</em>
<em>b < 2 - нет, b = 13 - 2 = 11</em>
<em>b < 2 - нет, b = 11 - 2 = 9</em>
<em>b < 2 - net, b = 9 - 2 = 7</em>
<em>b < 2 - net, b = 7 - 2 = 5</em>
<em>b < 2 - net, b = 5 - 2 = 3</em>
<em>b < 2 - net, b = 3 - 2 = 1</em>
<em>b < 2 - da, Вывод: b(1)</em>
Ответ: 2
Uses crt;
const M = 100;
var a: array [1..M] of integer;
i, max, k, n: integer;
begin clrscr;
repeat
writeln('Введите количество элементов массива');
readln(n);
until (n <> 0) and (n>0);
for i := 1 to n do
begin
writeln('Введите [', i, '] элемент массива');
readln(a[i]);
end;
for i := 1 to n do
write(' ', a[i]);
writeln;
max := a[1];
for i := 2 to n do
if a[i] > max then max := a[i];
writeln(' max= ', max);
for i := 1 to n do
if a[i] = max then k := k + 1;
writeln(' k= ', k);
<span>end.</span>
Uses crt;
var a,b,s:integer;
begin
readln(a);
readln(b);
s:=a*b;
writeln(s);
end.
PascalABC.NET 3.4.2, сборка 1857 от 05.11.2018
Внимание! Если программа не работает, обновите версию!
program pascal;
var s, v, r:real;
begin
writeln('ВВедите радиус');
readln(r);
s:=4*3.14*r*r;
v:= 4/3*3.14*r*r;
Writeln('Площадь шара=',s,'Объем шара=',v);
end.