А) информацию из разных учебников пишешь в один конспект
б) копирование на флешку
в) восприятие информации органами чувств и ее обработка мозгом
г) разговор
д) краткий пересказ
е) <span>сидишь на уроке и принимаешь информацию от учителя в своей голове
ж) пишешь книгу
з) сжигаешь газету
и) учишь стих
к) систематизация по категориям
л) подсчет слов в предложении
м) любой поиск в поисковой системе</span>
//1
var x: real;
begin
write('x = ');
readln(x);
writeln(abs(10 - sqrt(1 + x * x)));
end.
//2
begin
randomize;
writeln(random(15) + 21);
end.
//3
var a, b: real;
begin
write(' Катет a = ');
readln(a);
write(' Катет b = ');
readln(b);
writeln(' Гипотенуза = ', sqrt(a * a + b * b));
end.
Вот вроде бы правильно сделано )
В задаче №3 вижу только одну ошибку. Имя программы не может начинаться с цифры.
Задача №4 представлена частично, поэтому определить наличие ошибок здесь проблематично.
Var n,k : Integer;
Begin
k:=-1;
Readln(N);
While N>0 do
Begin
If (not Odd(N mod 10)) and ((N mod 10)>k) then k:=N mod 10;
N:=N div 10;
end;
If k=-1 then Writeln('не найдено') else Writeln(k);
end.