На рисунке цифра 2, подробно во вложенном файле
Y2 = 2, так как условие с каждым разом выдаёт один и тот же результат.
y2 = 0,5*(2 + x/2)
y1 = 2
y2 = 0,5*(2 + x/2)
y1 = 2
y2 = 0,5*(2 + x/2)
y1 = 2
....
переходить по зебре и там где есть гаи
меню-
каталог книг
жанры (типа фантастика, стихи, сказки)
отдельно жанр - учебники, которые потом разделяются на предметы
список авторов
поиск по ключевым словам
1.
uses crt;
var a,b,c,d,e,f:integer;
begin
writeln ('vvedite 5 chisel');
read (a,b,c,d,e);
f:=a*b*c*d*e ;
if (f mod a)=0
then writeln ('delitsa')
else writeln ('nedelitsa');
<span>end.
По поводу второй, не уверен, если под суммой квадратов цифр подразумевается 10 = 1*1+0*0, то эта программа неправильна, её нужно переписать будет.
uses crt;
var a,i,s,t,t1:integer;
begin
for i:=10 to 99 do begin
t:=i div 10; t1:=i mod 10 ;
if (sqr(t)+sqr(t1)) mod 15 = 0
then s:=s+1;
end;
writeln (s);
<span>end.</span></span>