Var a,b,n:integer;
begin
writeln('n=');
readln(n);
<span>a:=n mod 10;
b:=n div 10;
if (a= 4) or (b=4) or (a=7) or (b=7) then writeln('yes')
else
writeln('no');
readln;
end.
__________________________
</span>var a,b,n:integer;
begin
writeln('n=');
readln(n);
a:=n mod 10;
b:=n div 10;
if (a= 3) or (b=3) or (a=6) or (b=6) or (a=9) or (b=9)
then writeln('yes')
else
writeln('no');
readln;
end.
Пишу задание вторым номером, поэтому постараюсь на качество.
Нам нужно найти сначала сумму всего роста, потом поделить его на общее количество учеников. Потом сопоставить каждый элемент со средним числом и высчитать количество высоких учеников.
Будет это выглядить так:
uses crt; //Если используете паскаль ABC, это строка нужна для удобства
Var a: array [1..25] of real; i,otvet: integer; h,s:real;
//Объявляем переменные. Массив,среднее число и суммарный рост - любые числа. Сам ответ - целые числа
Begin
For i:=1 to 25 do begin
Writeln('Введите рост ученика номер ',i); readln(a[i]);
//Здесь мы вводим рост с клавиатуры
end;
For i:=1 to 25 do
s:=s+a[i];
//находим суммарный рост всех учеников
h:=s/25;
// делим на их количество. Теперь переменная h - это средний рост
For i:=1 to 25 do
if a[i]>h then otvet:=otvet+1;
// А здесь проверяем каждый элемет массива. Если он выше значения среднего роста, мы прибавляем единицу к переменной "otvet". Там мы считаем количество высоких уч.
Writeln('Средний рост в классе равен ',h);
Writeln('Количество высоких учеников в классе равно ',otvet);
//вывод данных
end.
16 * 32 = 2^4 * 2^5 = 2^9
9 бит для кодировки одного места в зрительном зале.
Ответ : 9 бит
<span>Обобщение понятий — это мысленное действие, смысл которого в объединении нескольких видовых понятий в одном родовом понятии.</span>
Вбиваеш формулу и протяжкой копируеш ее вниз