Программа в пайтон которая считает в районе 1000. Зделайте

a = int(input())

print(a)

Объяснение:

Поиграйтесь, возможно есть ошибки

Объяснение:

a = ["", "один","два","три","четыре","пять","шесть","семь","восемь","девять"]

b = ["", "десять","двадцать","тридцать","сорок","пятьдесят","шестьдесят","семьдесят","восемьдесят","девяносто"]

c = ["", "сто","двести","триста","четыреста","пятьсот","шестьсот","семьсот","восемьсот","девятьсот"]

d = ["", "одинадцать","двенадцать","тринадцать","четырнадцать","пятнадцать","шестнадцать","семьнадцать","восемнадцать","девятнадцать"]

x = int(input("Введите ваше число (0-1000): "))  

if len(str(x)) >= 4:

   if x != 1000:

       print("Не более 1000!")

   elif x == 1000:

       print("Тысяча")

   else:

       print("Очень странная ошибка!")

   

elif len(str(x)) >= 1:

   if len(str(x)) == 1:

       print(a[x])

   elif len(str(x)) == 2:

       aa = str(x)[0]

       bb = str(x)[1]

       if aa == str(1):

           print(d[int(bb)])

       else:  

           print(b[int(aa)] + " " + a[int(bb)])

       

   elif len(str(x)) == 3:

       aa = str(x)[0]

       bb = str(x)[1]

       cc = str(x)[2]

       if bb == str(1):

           print(c[int(aa)] + " " + d[int(cc)])

       else:

           print(c[int(aa)] + " " + b[int(bb)] + " " + a[int(cc)])

       

elif x == None:

   print("Не оставляй пустым!")

 

 2)

Program Massiv1;

var a:array[1..10] of real;

       i:integer;

       s:real;

begin

      clrscr;

       write('Введите элементы массива: ');

 

      s:=0;

 

      for i :=1 to 10 do

             begin

                  readln(a[i]);   

 

                  if  (a[i]>0) then s:=s+1;

 

           end;

writeln;

for i :=1 to 10 do     writeln(a[i]:3:3);   

 writeln('Количество положительных элементов:',s);

 readkey;

 

 end.

 

 

 3)

Program Massiv2;

var a:array[1..10] of integer;

       i,b:integer;  

  begin

       clrscr;

       b:=2; 

       for i :=1 to 10 do

             begin

                a[i]=i+b;

                 b:=b+1; 

 

                 write(a[i]:2); 

 

             end;   

readkey;

end.

 

 

 

 

 

Я так понимаю, что а2 -это а умножить на 2, а b2 - это b умножить на 2

 

a) a*2+b*2;

b) a*b+b*c;
c) a+b -245*(a+b)*2*c;

4. Program Avgarif;

     Uses crt;

      var a,b,c,d,res:real;

      begin

           clrscr; 

           write('Введите 1 число: ');

            readln(a);

            write('Введите 2 число: ');

            readln(b);       

             write('Введите 3 число: ');

            readln(c);

            write('Введите 4 число: ');

            readln(d);

          res:=(a+b+c+d)/4;

          writeln('Среднее арифметическое:',res);

          readkey;

 

      end.   

 

 

5. Program Kvadrat;

     Uses crt;

     var a,p: real;

     begin

           clrscr; 

           write('Введите сторону квадрата а: ');

            readln(a);  

           p:=4*a;

            writeln('Периметр квадрата: ',p);       

            readkey;

    end.   

 

6.Program Prjamoug; 

     Uses crt;

     var a,b,p,s: real;

     begin

 

          clrscr;

           write('Введите 1 сторону прямоуголника: ');

            readln(a);

            write('Введите 2  сторону прямоуголника : ');

            readln(b);

 

           s:=a*b;

           p:=2*a+2*b;

 

          writeln('Периметр прямоугольника: ',p); 

 

          writeln('Площадь  прямоугольника : ',s);         

       readkey;

    end.   

 

 

 7. Program Arifm;

       Uses crt;

       var a,b,r,s,p,d: real;  

begin

           clrscr; 

           write('Введите 1 число: ');

            readln(a);

            write('Введите 2 число: ');

            readln(b);       

           p:=a*b;

           s:=a+b;

 

           d:=a/b;

           r:=a-b;

          writeln('Произведение a и b: ',p); 

          writeln('Сумма  a и b  : ',s);

         writeln('Частное a и b: ',d); 

          writeln('Разность  a и b  : ',r);     

    readkey;

   end.