Uses crt;
var a,b,n:integer;
begin
clrscr;
writeln('Введите делимое:'); readln(a);
writeln('Введите делитель <>0'); readln(b);
n:=a div b;
if b <> 0 then begin n:=a div b; writeln('Ответь ',n); end else writeln('error 0');
readkey;
end.
Если что паскаль
const n=10;
Var i : integer;
a : array [1..n] of integer;
begin
randomize;
for i:=1 to n do
begin
a[i]:=random(100+1)-50;
end;
for i:=1 to n do
begin
if a[i]<0 then a[i]:=a[i]+20;
end;
for i:=1 to n do write(a[i],' ');
readln;
end.
#include <iostream>
using namespace std;
int main()
{
int n, p, i;
string m;
cout << "Введите n: ", cin >> n, cout << "\n";
for (i=2; (i<=5)&&((n<100)or(n>999));i++) {
cout << "Введите n: ", cin >> n, cout << "\n";
}
if ((n>=100)and(n<=999)){
p = (n/100)*(n/10%10)*(n%10);
cout << p;}
else cout << "Ошибка";
return 0;
}
Пример:
<span>Введите n: 12
Введите n: 7623
Введите n: 456
120</span>
Program zadacha;
var
k,x,i,n:integer;
m:Array[1..100] of Integer;
begin
k:=0;
readln(n);
for i:=1 to n do begin
readln(m[i]);
end;
for i:=2 to n do begin
if m[i]>m[1] then k:=k+1;
end;
write(k);
<span>end.</span>