Здесь небольшая проблемка: при больших R некоторых частей функций не будет видно...
Но тем не менее;
uses Crt;
var x, y, R: real;
begin
ClrScr;
Write(' X = '); ReadLn(X);
Write(' R = '); ReadLn(R);
if x<=-R then y:=-3 else
if (x>=-R) and (x<=R) then y:=-sqrt(R*R-x*x) else
if (x>R) and (x<6) then y:=3+6*(x-6)/(R-6) else
if (x>=6) then y:=(x-9);
ReadLn;
end.
Единственное, что осталось - распечатать значения Y...
Но по условию распечатка Y вроде не требуется... Или я чего-то не понимаю...
Uses crt;
var a:array [1..1000] of integer;
n,i,k,p:integer;
begin
writeln('Введите количество домов ');
readln(n);
writeln('Вводите через пробел число жителей каждого дома ');
for i:=1 to n do
begin
read(a[i]);
if i mod 2=1 then k:=k+a[i]
else p:=p+a[i];
end;
writeln;
if k>p then writeln ('В нечетных домах жителей больше ')
else writeln('В четных домах жителей больше ');
end.
Div- деление нацело( отбрасываем дробную часть)
Mod - деление с остатком( отбрасываем целую часть)
1) 10 div 5=2
2) 5 mod 3=2
3) 100 div 20=5
4) 4 mod 1=0
5) (10 mod 3)*(11 mod 2)=1
Просто переведем оба числа в 10 систему счисления:
![33_4=3*4+3=12+3=15_{10} \\21_7=2*7+1=14+1=15_{10}](https://tex.z-dn.net/?f=33_4%3D3%2A4%2B3%3D12%2B3%3D15_%7B10%7D%0A%5C%5C21_7%3D2%2A7%2B1%3D14%2B1%3D15_%7B10%7D)
они равны.
Ответ: да
uses crt;
var ch,i,n,count:integer;
begin
n:=0;
count:=0;
write(' Введите число : ');
readln(ch);
if ((abs(ch)<30000) and (ch div 100 <> 0 ) and (ch mod 7 = 0)) then inc(count);
while ((ch<>0) and ( n <1001)) do
begin
write(' Введите число : ');
readln(ch);
if ((abs(ch)<30000) and (ch div 100 <> 0 ) and (ch mod 7 = 0)) then inc(count);
inc(n);
end;
writeln(count);
readln;
end.