Даны два целых числа А и В (А <B). Составить алгоритм Вывода всех целых чисел, расположенных между данными числами (не включая сами эти числа), в порядке их возрастания. сделайте в виде блок схемы
Program primer; Var f,h:text; I: integer; S: string; Begin Assign(f,'F.txt'); Assign(h,'H.txt'); rewrite(f);
Writeln('текст в файл F: ');
readln(s); writeln(f,s); //Записать текст в файл F close(f); Rewrite(h); Reset(f); Readln(f,s); write(h,' '); For i:=1 to length(s) do begin write(h,s[i]); //Переписать компоненты файла F в файл H if (s[i]=' ') then begin write(h,' '); //вставляя в начало каждого слова по двум пробела end; end;
Я знаю тип вирусов "Троянские программы" эти программы маскируются под видом других системных приложений и атакуют компьютер 1. Создал вирус о котором я рассказываю студент Фред Коэн, Запустив вирус на компьютер VAX он убедился что вирус размножается с невероятной скоростью! И в зависимости от условий может заразить весь компьютер за время от 5 минут до 1 часа! Испугавшись студент прекратил свой эксперимент.В следующем году студент написал научную работу по этой теме. 2. Этот вирус пришёл из Пакистана и назывался "Мозг" Лекарство от него появилось только в 1988 году! К тому времени количество вирусов возрастало и их становилось всё больше и больше 3. Вирус Jerusalem в 1988 году отформатировал жесткие диски в пятницу 13. Он был создан в Израиле. Этот вирус напугал очень много пользователей. Потому-что тогда антивирусы были диковинкой. А вреда вирус приносил много к примеру при попытке запуска заражённого файла сразу-же заражал его! Я когда наступала пятница 13 он просто форматировал жесткий диск.
Var
f,h:text;
I: integer;
S: string;
Begin
Assign(f,'F.txt');
Assign(h,'H.txt');
rewrite(f);
Writeln('текст в файл F: ');
readln(s);
writeln(f,s); //Записать текст в файл F
close(f);
Rewrite(h);
Reset(f);
Readln(f,s);
write(h,' ');
For i:=1 to length(s) do
begin
write(h,s[i]); //Переписать компоненты файла F в файл H
if (s[i]=' ') then
begin
write(h,' '); //вставляя в начало каждого слова по двум пробела
end;
end;
close(f);
close(h);
end.
// Паскаль ABC
1. Создал вирус о котором я рассказываю студент Фред Коэн,
Запустив вирус на компьютер VAX он убедился что вирус размножается с невероятной скоростью! И в зависимости от условий может заразить весь компьютер за время от 5 минут до 1 часа! Испугавшись студент прекратил свой эксперимент.В следующем году студент написал научную работу по этой теме.
2. Этот вирус пришёл из Пакистана и назывался "Мозг" Лекарство от него появилось только в 1988 году! К тому времени количество вирусов возрастало и их становилось всё больше и больше
3. Вирус Jerusalem в 1988 году отформатировал жесткие диски в пятницу 13. Он был создан в Израиле. Этот вирус напугал очень много пользователей. Потому-что тогда антивирусы были диковинкой. А вреда вирус приносил много к примеру при попытке запуска заражённого файла сразу-же заражал его! Я когда наступала пятница 13 он просто форматировал жесткий диск.