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

нужен рабочий автокликер для сервера кристаликс(cristalix. ru)

👇
Открыть все ответы
Ответ:
coolkaruna32ya
coolkaruna32ya
01.05.2020
Целесообразно архивировать только те данные, которые:
 - Сложно или невозможно восстановить (например, фотографии с фотоаппарата, которых на нём уже нет, то есть в случае их утраты восстановить их будет уже неоткуда)
 - Могут пригодиться в будущем (например, различные старые записи, личная электронная библиотека)
 - Файлы операционной системы (для последующего восстановления операционной системы в случае её краха)
 - Слишком долго восстанавливать (например, скачанные фильмы вроде как не особо нужны, но повторно качать их долго, так что может иметь смысл создать резервную копию)
4,6(38 оценок)
Ответ:
program
var
s: string;
a:array[1..4] of integer;
i:integer;
begin
 read(s);
 for i:=1 to 4 do a[i]:=0;
 
 for i:=0 to length(s) do
 begin
    if s[i]=')' then inc(a[1]);
    if s[i]='(' then inc(a[2]);
    if s[i]='!' then inc(a[3]);
    if s[i]='.' then inc(a[4]);
 end;
 
 if(a[1]>a[2])and(a[1]>a[3])and(a[1]>a[4]) then write('Funny')else
 if(a[2]>a[1])and(a[2]>a[3])and(a[2]>a[4]) then write('Sad') else
 if(a[3]>a[2])and(a[3]>a[1])and(a[3]>a[4]) then write('Angry') else
 if(a[4]>a[2])and(a[4]>a[3])and(a[4]>a[1]) then write('Deep') else
    write('Unclear');

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