Var n, n1, n2, n3: integer; begin; readln (n); n1: =n mod 10; n: =n div 10; n2: =n mod 10; n3: =n div100 if (n1=n2) and (n2=n3) then writeln ('y') else writeln ('n'); end. ошибка в как исправить и описание. программа паскаль.

var n,n1,n2,n3: integer;

begin;

readln (n);

n1: =n mod 10;

n: =n div 10;

n2: =n mod 10;

n3: =n div 100;

if (n1=n2) and (n2=n3) then writeln ('y') else writeln ('n');

end.

1) var k1,k2,k3,k4: integer; f,f1,f2,f3,f4: real; begin write('f = '); readln(f); writeln('k1, k2, k3, k4: '); readln(k1,k2,k3,k4); f1: =f/(k1+k2+k3+k4)*k1; f2: =f/(k1+k2+k3+k4)*k2; f3: =f/(k1+k2+k3+k4)*k3; f4: =f/(k1+k2+k3+k4)*k4; writeln('f1 = ',f1: 5: 2); writeln('f2 = ',f2: 5: 2); writeln('f3 = ',f3: 5: 2); writeln('f4 = ',f4: 5: 2); end. пример: f = 5 k1, k2, k3, k4: 11 14 13 12 f1 =   1.10 f2 =   1.40 f3 =   1.30 f4 =   1.20 2) var a,a4,a6: real; begin write('a = '); readln(a); a4: =a*a; //a^2 a4: =a4*a4; //a^4 writeln(a,'^4 = ',a4); a6: =a*a; //a^2 a6: =a6*a6*a6; //a^6 writeln(a,'^6 = ',a6); end. пример: a = 2 2^4 = 16 2^6 = 64

Объяснение:

Приведите примеры ситуаций, в которых информация:

собирается - опрос журналистом людей для статьи в газете

обрабатывается - решение учеником задачи

упрощается - тбъяснение учителем материала урока

создается - придумывание журналистом статьи (как ее написать, что в ней написать и т.д)

запоминается - выучивание учеником стиха

измеряется - рассчитывание программистом объема, который займет написанная им программа

копируется - списывание учеником домашнего задания у одноклассника

передается - распространение слухов внутри класса или школы (один рассказал, другой передал и так далее)

принимается - ученики слушают, что им рассказывает учитель на уроке

разрушается - отклонение написанной статьи журналиста

делится на части - работа с текстом на уроке русского языка (вставить запятые, буквы, например)

ищется - поиск материала для написания сообщения, доклада на какой-либо урок

Надеюсь, смогла