<u>Задача №1 (написанная на паскале)</u>
uses crt;
var
a, b, c: real;
begin
readln (a, b, c);
a:= a*a;
b:= b*b;
c:= c*c;
if (a+b=c) or (b+c=a) or (c+a=b)then writeln ('Mozhno') else writeln('oshipka postroenie');
readkey;
end.
<u>Задача №2.(написанная на паскале) </u>
uses crt;
var
a : integer;
begin
readln (a);
if (a mod 13 =0) then writeln ('da') else writeln ('net');
readkey;
end.
Безопасный интернет - это...
Интернет, стал неотъемлемой частью нашей жизни. Мы используем его разными способами. Для некоторых он служит средством добычи информации. Для других средством развлечений. И некоторые говорят, «с Интернетом стало легче и удобней жить».С одной стороны это весьма неплохо, но если задуматься, то он может доставить кучу проблем. С которыми лучше не сталкиваться. В интернете много всего нецензурного, порнографии и мошенничества, а также выплывающие окна, которые содержат информацию подталкивающие к самоубийству, отказу от приема пищи, убийствам. При этом эти окна появляются независимо от желания пользователя. Контакты с нежелательными людьми с помощью чатов или электронной почты, игровые сайты, но вред интернета заключается, в первую очередь, в зависимости от него, которая превращается в болезнь.Лично я, хочу, чтобы интернет стал безопасным, так как я ученица 7 класса, и часто использую интернет для своих целей (проверить почту, найти реферат, скачать что-нибудь).Со мной не раз случалось такое, что через интернет на мой компьютер проникали вирусы; это было не очень хорошо. Кроме того, злоумышленники один раз вторглись на мой персональный компьютер (ПК). И сделали они это или через электронную почту, или через программы взятые из сети Интернет.Однажды сидя в социальной сети. Вконтакте, которая так распространена среди молодого поколения. Мне пришло сообщение от подруг там было написано «пройди по ссылке, иначе я обижусь» я нажала «пройти» после чего на экране всплыло окно с просьбой отправить смс после чего должен был прийти код, которое нужно было вести, чтобы пройти по ссылке. После всего этого с моего лицевого счета было снято триста (300) рублей. Поэтому чтобы Интернет стал безопасным надо просто четко знать, какую информацию вам нужно найти, что важно для вас, а не пытаться открывать прикрепленные к письму файлы, которые приходят вам по электронной почте из неизвестных источников, не запускать программы, в которых вы сомневаетесь.Также верным помощником безопасного Интернета являются антишпионские программы, помогающие защитить компьютер от всплывающих окон, снижения производительности, угроз безопасности, вызванных программами-шпионами и другими «доброжелательными» программами, которые выполняют определённые действия без нашего ведома, например, показывающие рекламу или отслеживающие личные данные. <span>Всё это – наша безопасность. Для наилучшей защиты правительству нужно создавать различные организации, занимающиеся охраной интернета и которые помогут обезопасить информационное пространство интернета, тем самым защитить нас и наше детство. Надеюсь, что наше поколение, постарается входить в этот мир компьютера и Интернета с широким шагом и внимательностью.</span>
Целью: если нужно сравнить какие-то данные - выбираем столбчатую (гистаграмму), если нужно проследить изменение какой-то одной величины - график, если нужно определить долю какой-то величины в общем объеме - круговую
<h3>PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var (max, min, k) := (-100000, 100000, 0);
ReadSeqIntegerWhile(t -> t <> 0)
.Foreach(t ->
begin
if t > max then max := t;
if t < min then min := t;
if t mod 10 = 7 then Inc(k)
end);
Writeln('min=', min, ', max=', max, ', искомое кол-во: ', k)
end.