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

Упорядкуйте дії для створення рамки, що обмежує сторінку. Укажіть порядок слідування всіх 6 варіантів відповіді:
1) У вікні за до спадних списків призначте тип ліній рамки,
їх ширину та колір.
2) За до списку Застосувати до визначте, що налаштування
потрібно застосувати до всього документа.
3) У меню Формат оберіть команду Межі й заливка.
4) В області Тип вікна налаштовування параметрів оберіть тип межі
сторінки (немає, рамка, тінь, об’ємна, інша).
5) У вікні, що з’явилося на екрані, обріть вкладку Сторінка.
6) Закінчивши налаштовувати параметри, натисніть кнопку ОК.

👇
Открыть все ответы
Ответ:
michael48
michael48
28.02.2020

Задание 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(95 оценок)
Ответ:
лера25jd
лера25jd
28.02.2020
Цикл foruses Math;var    i: integer;    sum: real;begin    for i := 1 to 100 do        Sum := Sum + Sqr(i);    Writeln(Sum);end.Цикл while (предусловие)uses Math;var    i: integer;    sum: real;begin    while i <= 100 do        begin            Sum := Sum + Sqr(i);            i := i + 1;        end;    Writeln(Sum);end.Цикл repeat..until (постусловие)uses Math;var    i: integer;    sum: real;begin    repeat        i := i + 1;        Sum := Sum + Sqr(i);    until i >= 100;    Writeln(Sum);end.
4,4(24 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ