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

Заполнить пропуски procedure solution(n: byte; var s: integer); var i: byte; a: integer; begin s : = 10; for i : = 1 to n do begin a : = -20 + random(41); write(a: 5); __ : = s + sqr(a) end; writeln end; var n: byte; p: integer; begin randomize; write('n? '); readln(n); solution(n, p); end.

👇
Ответ:
Olivia01211924
Olivia01211924
14.01.2023
Procedure solution(n: byte; var s: integer);
var
    i: byte;
    a: integer;
begin
    s := 10;
    for i := 1 to n do
    begin
        a := -20 + random(41);
        write(a:5);
        s := s + sqr(a);
    end;
    writeln
end;

var
    n: byte;
    p: integer;

begin
    randomize;
    write('n? ');
    readln(n);
    solution(n, p);
    writeln(p)
end.
4,7(4 оценок)
Открыть все ответы
Ответ:
Irinazpopo
Irinazpopo
14.01.2023

Задание 1

program HelloMoney;

 var

 y, i: integer; // Объявим переменные для количества лет вклада и для счетчика цикла  

p, s: real; //Объявим переменные для количества процентов и величины вклада

begin

write('Какая сумма вклада? ');

readln(s); // Указываем сколько составляет вклад

write('На сколько лет вклад? ');

readln(y); // Указываем на сколько лет вклад

write('Какая процентная ставка?');

readln(p); // Указываем процентную ставку

for i:=1 to y do

s := s + s*p/100; // Прибавляем к вкладу ежегодный процент

write('Сумма денег составит: ', s);

end.

Объяснение:

4,4(43 оценок)
Ответ:
buschckovaanas
buschckovaanas
14.01.2023

2. var

r: integer;

result: string;

begin

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

readln(r);

case r of

1: Result := 'январь';

2: Result := 'февраль';

3: Result := 'март';

4: Result := 'апрель';

5: Result := 'май';

6: Result := 'июнь';

7: Result := 'июль';

8: Result := 'август';

9: Result := 'сентябрь';

10: Result := 'октябрь';

11: Result := 'ноябрь ';

12: Result := 'декабрь';

end;

writeln(' месяц : ',result);

end.

Объяснение:

я написал ответ только к 2 задаче

постарайся сам сделать 1 ую задачку.

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