Когда задаешь вопрос, внизу есть иконка с картинкой. Нажимаешь на неё и выбераешь фото с домашкой.
1) Мой друг передал мне таблицу с данными о примерах по математике.
2
Всмысле вызначиты килькисть крейди, тут не коректне запытання
1) program example 1;
var
x, y,z : integer;
sr_arif : real;
begin
write ( ' введите числа x, y и z ' );
readln (x,y,z);
sr_arif := (x+y+z)/3;
writeln( ' среднее арифметическое чисел x, y и z =' , sr_arif);
end.
Нужно трёхзначное число разбить на 3.Для этого нам нужно 3 переменных, пусть это будет a,b,c.
Будем делать на примере числа 123, то есть n:=123.
Чтобы выделить единицу пишем это a:=n div 100;
Теперь выделяем двойку b:=(n div 10) mod 10;
Тройку c:=n mod 10.
Теперь собственно сама сумма, берём ещё одну переменную, пусть будет sum. sum:=a*a +b*b+c*c;
Ну а дальше просто выводи sum,думаю знаешь как)