С оценками учеников, документами, квитанциями (не всегда) справочным материалом, дополнительным материалом, с домашними работами учеников
Книги, компьютер, ученики, тетради
Использовать Чертежник
алг
нач
опустить перо
М;И;Р
сместиться на вектор(1,0)
Р;И;М
сместиться на вектор(1,0)
М;И;М
кон
алг Р
нач
опустить перо
сместиться на вектор(0,3)
сместиться на вектор(1,0)
сместиться на вектор(0,-1)
сместиться на вектор(-1,-0.5)
поднять перо
сместиться на вектор(2,-1.5)
кон
алг И
нач
опустить перо
сместиться на вектор(0,3)
сместиться на вектор(0,-3)
сместиться на вектор(1.5,3)
сместиться на вектор(0,-3)
поднять перо
сместиться на вектор(1,0)
кон
алг М
нач
опустить перо
сместиться на вектор(0.75,3)
сместиться на вектор(0.75,-3)
сместиться на вектор(0.75,3)
сместиться на вектор(0.75,-3)
поднять перо
сместиться на вектор(1,0)
кон
(I - информационный объем текста, K - кол-во символов, i - вес одного символа/бит на символ)
Дано:
K = 20 шт
i = 16 бит
I2 = 0.25 Кбайт = 256 байт
I1 - ?
Решение:
I = K * i = 20 * 16 бит = 320.0 бит
I1 - I2 = K * i = 20 * 16 бит = 320.0 бит = 40.0 байт
I1 = 40 байт + I2 = 40 байт + 256 байт = 296 байт
Ответ: 296 байт
Var a,b,c,y,x,min,max:integer;
begin
writeln('Введите первое число');
readln(a);
writeln('Введите второе число');
readln(b);
writeln('Введите третье число');
readln(c);
writeln('Введите четвертое число');
readln(x);
writeln('Введите пятое число');
readln(y);
if a > b then max :=a else max :=b;
if max < c then max:=c;
if max < y then max:=y;
if max < x then max:=x;
writeln('Максимальное число = ',max);
end.
Я плохой художник)
Не знаю зачем ты писал такие костыли , если вот весь алгоритм
for (i = 1; i<n; i++)
{
if ((mas[i] % 2 == 0) && ((i >= a) && (i <= b)) && ((i>0) && (i<n - 1)))
{
mas[i] = mas[i - 1] + mas[i + 1];
}
}
