<!DOCTYPE html>
<html>
<head>
<meta charset="UTF-8">
<title>Почему так важно изучать информатику</title>
</head>
<body>
<font color=black>
<h3 color=white><p><strong>Зачем я изучаю информатику?</strong></p></h3> <br>
<h4>В наше время это, наверно, самый главный предмет, так как сейчас все только держится на коммуникационных технологиях. Чтобы попасть на хорошо оплачиваемую работу надо иметь опыт «общения» с компьютером. Я думаю, что без этого ни как, в данный момент даже дедушки и бабушки учатся работе с компьютером. Это очень важно учить и понимать информатику и новую технику.</h4>
<br>
<h4 align=right><strong>Вейхнер Эвелина, 7 А класс</strong></h4>
<hr></hr>
<br>
<h4>Я думаю, что это правильно, что в нашей школе изучают предмет «Информатика». Потому что компьютеры стали важной частью человечества. Если технологии станут быстрее развиваться, то люди поймут, что без компьютера не обойтись. Поэтому надо учить информатику.</h4>
<br>
<h4 align=right><strong>Малахов Антон, 7 Б класс</strong></h4>
<hr></hr>
<br>
<h4>В век высоких технологий, когда в каждом доме присутствует компьютер, человек должен знать, как с ним работать. Для изучения и практического применения и нужен предмет информатика. Её преподают в школах, ВУЗах, люди ходят заниматься в школы информатики. Сначала все кажется очень сложным, но проходит время и человека затягивает интерес. Он не понимает, как проснуться утром и не сесть за компьютер. Но это не очень хорошо. Не нужно сидеть много времени за компьютером, но и не нужно ограждать себя от сегодняшнего дня.</h4>
<br>
<h4 align=right><strong>Штанг Софья, 8 класс</strong></h4>
</body>
</html>
Program sum;
Uses crt;
Var A: array [1..40] of integer;
i,s: integer; {i - переменная цикла, s - сумма}
Begin clrscr;
Writeln ('Введите элементы массива');
for i:=1 to 40 do
read(a[i]);
writeln;
s:=0;
for i:=1 to 40 do
begin
if (i mod 3=0) then
s:=s+a[i];
end;
Writeln('S = ',s);
readln;
readkey;
end.
Заполняншь 1 кувшин в котором 9 литров водой и затем из него переливаешь воду в кувшин 5 литровый (заполняешь его до верха)в 1 кувшине останется 4 литра т.к. 9-5=4 , а потом не знаю
1) var n: integer;
2) <span>_а
1) A:=2;
2) readln (x);
read (x);
3) ,
4) write (x);
writeln (x);
5) +,-,*,/,</span>
<u>PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
Writeln('Минимальный элемент ',a.Min);
end.
<u>Пример</u>
n= 18
-14 13 39 -5 -39 -8 39 41 -2 -49 -32 18 -33 -50 10 2 -2 3
Минимальный элемент -50