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

Вычеслить произведение нечётных чисел на отрезке от 30 до 90

👇
Ответ:
Dinozavrik2525
Dinozavrik2525
04.06.2022

program raf105;

var

 i,pro: integer;

begin

 pro:=1;

 for i:=30 to 90 do

   if i mod 2 <> 0

     then pro:= pro*i;

 writeln('Произведение нечётных от 30 до 90: ',pro);

end.

PascalABC 3.4.2
4,4(88 оценок)
Открыть все ответы
Ответ:
combatcat
combatcat
04.06.2022

a) код:

from turtle import *

a = [[0,80],[80,26],[50,-68],[-50,-68],[-80,26]]

t = Turtle()

t.screen.setup(500, 500)

t.pencolor('#BE8097')

t.screen.bgcolor("#98E585")

t.pensize(3)

t.up()

for i in a:

   t.goto(i[0],i[1])

   t.down()

   for j in range(2):

       t.fd(60)

       t.lt(36)

       t.bk(60)

       t.lt(36)

   t.fd(60)

   t.rt(144)

   t.up()

t.screen.exitonclick()

t.screen.mainloop()

b) код:

from turtle import *

t = Turtle('turtle')

t.screen.setup(800, 800)

t.pencolor('blue')

t.screen.bgcolor("#98E585")

for i in range(0,360,30):

   t = Turtle('turtle')

   t.up()

   t.pensize(3)

   t.pencolor('#0324FD')

   t.lt(i)

   t.fd(100)

   t.down()

   t.fd(10)

   t.up()

   t.fd(20)

t.screen.exitonclick()

t.screen.mainloop()


ДАЮ Напишите программу в Python, чтобы получить такие картинки Киньте скрин, как вы написали и что
ДАЮ Напишите программу в Python, чтобы получить такие картинки Киньте скрин, как вы написали и что
4,8(66 оценок)
Ответ:
kiraн1999
kiraн1999
04.06.2022
1. Современный вариант (коротко, быстро и наглядно, кто знает). Так уже начали учить в некоторых школах.

// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var s:=ArrRandom(ReadInteger('n='),1,300).Println.
      Where(k->(k>=100) and ((k mod 100) div 10=0));
  if s.Count>0 then Writeln(s.Max) else Writeln('Нет элементов')
end.

Пример
n= 15
76 283 171 140 113 65 185 35 202 42 93 51 205 76 138
205

2. А так по-прежнему учат в большинстве школ. Стиль "80-х годов века". Долго, длинно, можно наделать ошибок, но по-другому эти учителя сами не могут.

const
  nn=100;
var
  i,n,max:integer;
  a:array[1..nn] of integer;
begin
  Write('n=');
  Read(n);
  Randomize;
  max:=0;
  for i:=1 to n do begin
    a[i]:=Random(300)+1;
    Write(a[i],' ');
    if (a[i]>=100) and ((a[i] mod 100) div 10=0) then
      if a[i]>max then max:=a[i]
    end;
  Writeln;
  if max>0 then Writeln(max)
  else Writeln('Нет элементов')
end.

Пример
n=15
219 68 131 115 104 169 80 288 143 108 124 214 50 101 1
108
4,8(99 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ