Я считаю что это рассказ мы узнаём из него много нового
Пожалуйста)
Program azatka;
var v,s,h:real;
Begin
Writeln('Введите площадь основания');
Readln(s);
Writeln('Введите высоту');
Readln(h);
v:=(s*h)/3;
Write('V=',v);
End.
65=16*4+1=41(в 16)
29=16+13=1D (в 16)
41
1D
___
5Е
проверка:
94=5*16+14=5Е(в 16)
ответ: 5Е
Задача №1
var i, sum, x: integer;
begin
sum := 0; //начальная сумма
for i := 1 to 10 do //счётчик до 10
begin
write('Введите число ', i ,': ');
readln(x);
sum:= sum + sqr(x); //к сумме прибавляем квадрат введенного числа
end;
writeln('Сумма квадратов чисел = ',sum);
end.
Задача №2.
var i, sum: integer;
begin
sum := 0; //начальная сумма
for i := 26 to 88 do //счётчик от 26 до 88
begin
if i mod 2 = 0 then //проверка на чётность, если остаток от деления равен 0, то число чётное
sum:= sum + i; //к сумме прибавляем число
end;
write(sum);
end.
Смысл этой задачи проверить в том , что является ли сумма предыдущих чисел , заданному числу . Вот и вся программа !