PascalABC.NET
#1
function Y(x:integer) := 2*((x+2)**2)+5.5*(x+2) - 3;
begin
var Xes := Range(3, 25);
Xes.Tabulate(p -> Y(p)).Println;
end.
#2
const PASS = '123ab';
begin
var rpass := Readstring('Pass: ');
while rpass <> PASS do begin
rpass := Readstring('Wrong pass. Try again: ');
end;
print('Correct password. Welcome');
end.
#3
begin
//Сначала читаем цифру, которую надо удалить, а уже потом число.
var X := ReadChar();
var number := ReadInteger().ToString.ToCharArray.ToList;
while number.Contains(X) do number.Remove(X);
number.JoinIntoString.Println;
end.
#4
begin
var X := ReadInteger();
Print((x div 100)+(x mod 100));
end.
Объяснение:
12- Информацио́нный шум — это культурный феномен, возникший в XX веке, который описывает наличие в тексте элементов, усложняющих его понимание, искажающих смысл изложенного или вовсе полностью препятствующих адекватному пониманию его содержания
13- Потеря данных (Data Loss) — повреждение или утрата информации в результате влияния различных факторов, случайных или намеренных действий. Потерять данные можно во время работы с ними, а также при хранении информации на компьютере, сервере или на массивах RAID.
14- та информация, которая необходима для решения данной задачи (например, задачи управления). Соответственно, иррелевантная информация ненужная, посторонняя. Разделение между этими понятиями относительно.
15- конечно можно большая часть информации там полностью проверенная, а учитывая что это один из самых популярных ресурсов в нем даже сомневаться особо не стоит.
16- Блогер - это человек, который ведет онлайн-дневник, "блог", регулярно публикует в нем новые записи. Блог в интернете может завести любой человек и писать на любую тему. ... Главный критерий успеха блога - количество подписчиков, то есть людей, которые регулярно его читают или смотрят.
Доверять этим людям не стоит, информацию нужно проверять самому так или иначе.
17- проверка фактов») — это процесс проверки фактических данных, встречающихся в тексте и не являющихся вымышленными, для определения их достоверности и правильности. ... Предварительная проверка фактов осуществляется до публикации и заключается в устранении опечаток, неточностей, спорных данных.
18- ты должен сделать это сам, ведь мне неоткуда знать кому в интернете ты доверяешь.
Объяснение:
sum, count, t : integer;
begin
sum := 0; count := 0;
while not eoln do
begin
read (t);
if t > 0 then
begin
sum := sum + t;
count := count + 1;
end;
writeln (sum, ' ', count);
end.
если количество элементов указано
var
sum, count, t, n, i : integer;
begin
sum := 0; count := 0;
read (n);
for i := 1 to n do
begin
read (t);
if t > 0 then
begin
sum := sum + t;
count := count + 1;
end;
writeln (sum, ' ', count);
end.