1
2
3
4
5
6
7
8
9
помоему натуральные числа и их 9 а так несовсем знаю)
Var x,y:real;
begin
readln(x,y);
if (x>0) and (x*x + y*y>=1) and (x*x + y*y<=2) then
writeln('yes')
else writeln('no');
end.
program raf105;
var a,n,i: integer;
begin
write('n = ');
readln(n);
write('a = ');
readln(a);
for i:=1 to n do
writeln(a);
end.
<h3><u>PascalABC 3.4.2</u></h3>
X=125
a= 125 div 100= 1
b= 125 mod 100 div 10= 25 div 10 = 2
c= 125 mod 10 =5
s= 1+2+5=8
x= 248
a= 248 div 100= 2
b= 248 mod 100 div 10= 48 div 10 = 4
c= 248 mod 10 =8
s= 2+4+8=14
x=789
a= 789 div 100= 7
b= 789 mod 100 div 10= 89 div 10 = 8
c= 789 mod 10 =9
s= 7+8+9=24
Паскаль:
#################################################################
var
x, k, a, i: integer;
begin
writeln('Введите количество яблок');
readln(x);
writeln('Введите количество дней');
readln(k);
writeln('Введите количество яблок, которое упало в 1 день');
readln(a);
for i:=1 to k do begin
x:=x-a;
a:=a*2;
end;
writeln(inttostr(x));
sleep(3000);
end.