1. К информационным моделям относятся: А) чертеж детали
Б) схема предложения
В) план квартиры
Г) карта города
Д) макет звездного неба
2. К информационным моделям относятся:
А) скульптура
Б) таблица умножения
В) рисунок растительной клетки
Г) формула вычисления площади фигуры
Д) космический снимок
3. К информационным моделям относятся:
А) диаграмма Эйлера-Венна
Б) график движения автобусов
В) схема города
Г) макет компьютера
Д) медицинская карточка
4. К информационным моделям относятся:
А) словесное описание работы механизма
Б) анкета для друзей
В) робот
Г) игрушечный телефон
Д) медицинская карточка

Вот решение на C#
using System;
using System.Collections.Generic;
using System.Linq;

namespace Help
{ 

    class MainClass
    {
        public static void Main(string[] args)
        {
            int day = 1;
            double mass = 50;
            double changing = 1.2;
            
            while(mass < 120)
            {
                mass *= changing;
                day++;                
            }
            
            Console.WriteLine($"В {day} день");
        }
    }
}

// PascalABC.NET 
// Версия 3.3.5 сборка 1662 (29.04.2018)

begin
  var b := ReadlnString('Введите строку -').ToLower+' '; 
  var (z,r) := (',!?.:;'.ToCharArray,'!.?;'.ToCharArray);
  var tt:=true; Range(1,b.Length+b.ToCharArray.Where(t->t in z).Count).ForEach(t->if (b[t] in z) and tt then begin Insert(' ', b, t); tt:=false end else tt:=true);
  var a := b.ToWords;
  var x := ReadlnChar('Буква -');
  var (w, i) := a.Select((w, i)-> (w, i)).Where(t -> t[0].ToString.First.ToLower = x).Reverse.UnZipTuple; 
  i := i.Reverse;
  foreach var t in w.Zip(i, (p, q)-> (p, q)) do a[t[1]] := t[0];
  b := string.Join(' ', a);
  tt:=true; Range(1,b.Length-b.ToCharArray.Where(t->t in z).Count+1).ForEach(t->if (b[t] in z) and tt then begin Delete(b, t - 1, 1); tt:=false end else tt:=true); 
  b.Println; Println('Количество предложений:',b.ToWords(r).Count);
end.

Пример в приложении.