М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
misspolina967
misspolina967
22.11.2020 23:33 •  Информатика

Напишите программу на языке Python, которая считывает с клавиатуры натуральное число N и выводит на экран квадраты всех натуральных чисел от 1 до N включительно , верную программу

👇
Ответ:
knestor
knestor
22.11.2020

N = int(input())

for i in range(1, N+1): print(i*i)

Объяснение:

4,5(16 оценок)
Открыть все ответы
Ответ:
35465
35465
22.11.2020

Паскаль АВС:

 

Program Tabulator;
uses GraphABC, crt;
var
  min,max,shag,x,y:real;
x0,y0,k,i,x1,y1:integer;
begin
  setWindowSize(640,640);
  x0:=300;
  y0:=300;
  k:=50;
  min:=2;
  max:=4;
  shag:=0.2;
  x:=min;
   line(x0,20,x0,600);   line(20,y0,620,y0);
   line(x0,20,x0-10,30);  line(x0,20,x0+10,30);
   line(630,y0,620,y0-10);  line(630,y0,620,y0+10);
   for i:=-5 to 5 do
       begin
       line(x0+(i*k),y0-10,x0+(i*k),y0+10);
       textout(x0+(i*k),y0+10,inttostr(i));
       end;
   for i:=-5 to 5 do
       begin
       line(x0-10,y0+(i*k),x0+10,y0+(i*k));
       if i<>0 then textout(x0+10,y0+(i*k),inttostr(-i));
       end;
  while x<=max do
    begin
     y:=0.1*x*x-x*cos(x);
     writeln(x:5:2,' ',y:5:2);
     x1:=trunc(x0+x*k);
     y1:=trunc(y0-y*k);
     setPenColor(clRed);
     circle(x1,y1,2);
     x:=x+shag;
    end;
end.

4,6(75 оценок)
Ответ:
nuriksabirjan
nuriksabirjan
22.11.2020

Program Tabulator;
uses GraphABC, crt;
var
  min,max,shag,x,y:real;
x0,y0,k,i,x1,y1:integer;
begin
  setWindowSize(640,640);
  x0:=300;
  y0:=300;
  k:=50;
  min:=2;
  max:=4;
  shag:=0.2;
  x:=min;
   line(x0,20,x0,600);   line(20,y0,620,y0);
   line(x0,20,x0-10,30);  line(x0,20,x0+10,30);
   line(630,y0,620,y0-10);  line(630,y0,620,y0+10);
   for i:=-5 to 5 do
       begin
       line(x0+(i*k),y0-10,x0+(i*k),y0+10);
       textout(x0+(i*k),y0+10,inttostr(i));
       end;
   for i:=-5 to 5 do
       begin
       line(x0-10,y0+(i*k),x0+10,y0+(i*k));
       if i<>0 then textout(x0+10,y0+(i*k),inttostr(-i));
       end;
  while x<=max do
    begin
     y:=0.1*x*x-x*cos(x);
     writeln(x:5:2,' ',y:5:2);
     x1:=trunc(x0+x*k);
     y1:=trunc(y0-y*k);
     setPenColor(clRed);
     circle(x1,y1,2);
     x:=x+shag;
    end;
end.

4,8(82 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ