var N,N1,s:integer;
BEGIN
writeln('Введите целое число:');
readln(N);
N1:=N;
while N<>0 do begin
s:=s+N mod 10;
N:=N div 10;
end;
writeln('Сумма цифр числа ',N1,' равна ',s,'.');
end.
Ответ:
Презентация о кактусе
Объяснение:
Кактусы – это многолетние растения, которые обладают сочными, утолщенными и мясистыми стеблями. Они покрыты колючками, щетинками или волосками. У большинства видов кактуса плоды ягодообразные, мясистые, у некоторых даже съедобные. Из-за того, что растения преимущественно произрастают в пустыне, они лишены листвы. Листья превратились в колючки, вода стала накапливаться в массивном толстом стебле. Кстати о колючках. Они имеют разную форму – плоскую, круглую, прямую или крючковидную, пушистую или гладкую. Хотя у некоторых видов семейства есть листья. Так, у перескии, произрастающей в Южной Америке, Мексике, Индии имеется древесный стебель, листья и… колючки. У других растений, опунций, есть маленькие листья длиной 2-5 мм. Внешне они напоминают шило и очень сочные. Листья прорастают весной и через короткое время высыхают и опадают. Кактусы накапливают даже малую часть воды, которая попала в почву. Молодые побеги могут уловить влагу даже с воздуха. Потом они опадают и укореняются. Самые большие кактусы могут накопить до 2000 литров воды. А чтобы меньше испарялось влаги, растения покрылись толстой зеленой кожицей, а поверх нее — волосяной покров или слой воска.
Program xxx;
Var a, b, c, p, s : real;
Begin
wtiteln('введите катет а-');
read(a);
wtiteln('введите катет b-');
read(b);
s:=(a*b)/2;
writeln('площадь треугольника =', s);
c:=sqrt(sqr(a)+sqr(b));
p:= a+ b + c;
writeln('периметр треугольника =', p);
end.
Химикалий. Других слов в словаре по этим пунктам - нет.
Program z4;
var s,l:integer; {объявляем переменные}
begin
s:=0; {начальное значение}
l:=0; {начальное значение}
while l<3 do {пока l<3 выполняем..}
begin {начало цикла}
l:=l+1; {увеличиваем l}
s:=s+l*l; {вычисляем текущее значение s}
end; {конец цикла}
writeln('s = ',s); {выводим s}
end.