Program n1;
var a: integer;
begin
for a:=8 to 96 do
if( a mod 8 =0) then writeln(a);
end.
2) Решил бы еще, но замучаюсь всё это в пэйнте рисовать:)
1 дерево вершина + ветка + ствол
2 дерево вершина + две ветки
3 дерево ветка + ствол
Program primer;
Uses crt;
var a: integer;
begin clrscr;
write('Введите число a = ');
readln(a);
writeln;
if ((a mod 10) = 4) or ((a div 10) = 4) then
writeln('Цифра 4 входит в число ')
else
writeln('Цифра 4 не входит в число ');
readln;
end.
Var
i: integer;
s: real;
begin
i := 2;
while(i <= 100) do
begin
//writeln(i, '/', i + 1);
s := s + (i / (i + 1));
i := i + 2;
end;
write(s);
end.
vvvvvvvvvvvvvvvvvvvvvvv