В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Liya20034
Liya20034
23.04.2021 21:08 •  Информатика

Які переваги та недоліки растрових та векторних зображень?

Показать ответ
Ответ:
Nodar2004
Nodar2004
08.01.2023 02:09
// Задача решается длинной арифметикой
VAR
   a,b,c: String;
   i, s: LongInt;

Procedure Sum(var a, b: String);
Var i, p, c1,c2: LongInt;
Begin
   while (Length(a) < Length(b)) do a := '0' + a;
   while (Length(b) < Length(a)) do b := '0' + b;

   p := 0;
   for i := Length(a) downto 1 do begin
      c1 := Ord(a[i]) - 48;
      c2 := Ord(b[i]) - 48;

      a[i] := Chr(48 + (c1 + c2 + p)mod 10);
      p := (c1 + c2 + p) div 10;  
   end;

   if (p > 0) then a := Chr(p + 48) + a;
End;

BEGIN
   a:= '2013';
   b:= '2014';

   for i := 3 to 2014 do begin
      Sum(a, b);
      c := a; a := b; b := c;  
   end;

   Writeln(c);

   s := 0;
   for i := 1 to Length(c) do
      s := s + Ord(c[i]) - 48;

   Writeln('Сумма цифр числа = ', s);
END.
0,0(0 оценок)
Ответ:
222111ALEXA111222
222111ALEXA111222
27.02.2021 21:33
Информатика-это наука,изучающая виды информации её получения,хранения и передачи.
География-это наука,о природе нашей планеты и о законах,по которым она живет и развивается.
Фонетика-это раздел науки о звуках русского языка
Ботаника-это раздел науки о изучении растений
Имя сущ-это самостоятельная часть речи,которая отвечает на вопросы кто? что? и обозначает предмет
Глагол-это самостоятельная часть речи,которая отвечает на вопросы что сделать?что делать? и др. обозначает действие предмета
Тяж.промышленность-это группа отраслей промышлености,производящих преимущественно средства произовдства.
Легкая промышленность-это отрасль народного хоз.,производящая потребительские товары.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота