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

6класс. 1. что такое разработка сценария? 2. как нарисовать персонажа? (опишите пошагово) 3. что такое реализация сценария? (опишите пошагово) 4. как разработать сцену? (опишите пошагово) (это все вопросы по программе scratch! )

👇
Открыть все ответы
Ответ:
kokgggg
kokgggg
01.03.2023
// PascalABC.NET 3.2, сборка 1370 от 24.12.2016
// Внимание! Если программа не работает, обновите версию!

begin
  var s:=ReadlnString('Введите строку:').ToLower;
  var c:=ReadlnChar('Введите искомую букву:').ToLower;
  Writeln('Буква встречается ',s.Where(a->a=c).Count,' раз(а)')
end.

Пример
Введите строку: А роза упала на лапу Азора
Введите искомую букву: а
Буква встречается 8 раз(а)

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

begin
  var s:=ReadlnString('Введите фразу:');
  s.Replace('Ты','Я').Replace('ты','я').Println
end.

Пример
Введите фразу: Тыков ест тыблоко
Яков ест яблоко

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

begin
  var s:=ReadlnString('Введите строку:');
  var s1:=ReadlnString('Что найти?');
  var s2:=ReadlnString('Чем заменить?');
  s:=s.Replace(s1,s2);
  s.Println;
end.

Пример
Введите строку: мама, мама, что я буду делать, мама, мама, как я буду жить?
Что найти? мама
Чем заменить? папа
папа, папа, что я буду делать, папа, папа, как я буду жить?
4,6(39 оценок)
Ответ:
артём0092
артём0092
01.03.2023
Var
    i, n, s: integer;

begin
    readln(n);
    i := 0;
    s := 0;
    
    while i < 7 do
    begin
        if (n mod 2 = 1) then begin
            s := s + n;
            i := i + 1;
        end;
        n := n + 1;
    end;
    
    writeln(s);
end.

var
    i, n, s: integer;

begin
    readln(n);
    i := 0;
    s := 0;
    
    repeat
        if (n mod 2 = 1) then begin
            s := s + n;
            i := i + 1;
        end;
        n := n + 1;
    until i >= 7;
    
    writeln(s);
end.

var
    i, n, s: integer;

begin
    readln(n);
    n := n + (n + 1) mod 2;
    s := 0;
    
    for i := 1 to 7 do
    begin
        s := s + n;
        writeln(n);
        n := n + 2;
    end;
    
    writeln(s);
end.
4,5(28 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ