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

10 запитань й 10 відповідів тема скретч​

👇
Ответ:
ang18
ang18
04.04.2022

Потрібно записувати запитання,нажаль я не вмію читати думки.

4,8(44 оценок)
Открыть все ответы
Ответ:
egekaterina201
egekaterina201
04.04.2022
var
  a, b, c, d, i, n, p: integer;
  x, y: real;

begin
  writeln('Задача 1, введите n =');
  read(n);
  for i := 1 to n do
    if i mod 2 = 0 then
      x := x + 1 / (2 * i + 1)
    else x := x - 1 / (2 * i + 1);
  writeln('Sum = ', x);
 
  writeln('Задача 2, введите a, b, c, d =');
  read(a, b, c, d);
  for i := a to b do
    if i mod c = d then writeln(i);
 
  writeln('Задача 3, введите n и n чисел =');
  read(n);
  a := 0; b := 0; c := 0;
  for i := 1 to n do
  begin
    read(p);
    if p = 0 then a := a + 1
    else if p < 0 then b := b + 1
    else if p > 0 then c := c + 1;
  end;
  writeln(a, ' ', b, ' ', c);
 
  writeln('Задача 5, введите x, p ,y =');
  read(x, p, y);
  n := 0;
  repeat
    x := round(x * (100 + p)) / 100;
    n := n + 1;
  until x >= y;
  writeln(n, ' лет');
 
  writeln('Задача 6, введите A, B =');
  read(a, b);
  repeat
    if (a mod 2 = 0) and (a div 2 >= b) then begin
      writeln(a, ' : 2 = ', a div 2);
      a := a div 2
    end
    else begin
      writeln(a, ' - 1 = ', a - 1);
      a := a - 1;
    end;
  until a <= b;
end.
4,6(74 оценок)
Ответ:
оу1щи
оу1щи
04.04.2022

ответ:"objName": "Stage",

"lists": [{

  "listName": "dummy",

  "contents": [],

  "isPersistent": false,

  "target": "Stage",

  "x": 5,

  "y": 5,

  "width": 102,

  "height": 202,

  "visible": true

 }],

"sounds": [{

  "soundName": "pop",

  "soundID": 0,

  "md5": "83a9787d4cb6f3b7632b4ddfebf74367.wav",

  "sampleCount": 258,

  "rate": 11025,

  "format": ""

 }],

"costumes": [{

  "costumeName": "backdrop1",

  "baseLayerID": 3,

  "baseLayerMD5": "790f7842ea100f71b34e5b9a5bfbcaa1.svg",

  "rotationCenterX": 240,

  "rotationCenterY": 180

 }],

"currentCostumeIndex": 0,

"penLayerMD5": "279467d0d49e152706ed66539b577c00.png",

"tempoBPM": 60,

"children": [{

  "objName": "Scratch Cat",

  "scripts": [[53,

    47.8,

    [["procDef", "Fill %s with %s , %n times", ["list", "a", "n"], ["", "", 1], true],

     ["doRepeat", ["getParam", "n"], [["append:toList:", ["getParam", "a"], "dummy",

  "sounds": [{

    "soundName": "pop",

    "soundID": 0,

    "md5": "83a9787d4cb6f3b7632b4ddfebf74367.wav",

    "sampleCount": 258,

    "rate": 11025,

    "format": ""

   }],

  "costumes": [{

    "costumeName": "costume1",

    "baseLayerID": 1,

    "baseLayerMD5": "f9a1c175dbe2e5dee472858dd30d16bb.svg",

    "rotationCenterX": 47,

    "rotationCenterY": 55

   },

   {

    "costumeName": "costume2",

    "baseLayerID": 2,

    "baseLayerMD5": "6e8bd9ae68fdb02b7e1e3df656a75635.svg",

    "rotationCenterX": 47,

    "rotationCenterY": 55

   }],

  "currentCostumeIndex": 0,

  "scratchX": 0,

  "scratchY": 0,

  "scale": 1,

  "direction": 90,

  "rotationStyle": "normal",

  "isDraggable": false,

  "indexInLibrary": 1,

  "visible": true,

  "spriteInfo": {

Объяснение:

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