Var
a,b,c:integer;
begin
a:=26;
b:=6;
b:=a mod b+4;
c:=a mod b+1;
writeln('a=',a,' b=', b,' c=',c)
end.
Тестовое решение:
a=26 b=6 c=3
1-Д;С;А;Б
2-4
3-Гипертекст - Совокупность документов, содержащих текстовую, аудиои видеоинформацию, связанных между собой взаимными ссылками в единый текст.(я здесь не понел что надо было , пример или определение)
4-нет , т.к не может стоять 1 цифра 7
5-mail ru
Program z1;
var a:array[1..25] of integer;
Hmax,Hmin,i,R:integer;
begin
for i:=1 to 25 do readln(a[i]);
Hmax:=a[1];
Hmin:=a[1];
for i:= 1 to 25 do
begin
if Hmax<a[i] then Hmax:=a[i];
if Hmin>a[i] then Hmin:=a[i];
end;
R:=Hmax-Hmin;
writeln(R);
end.
1-48*64=3072
2-24*32=768
3-3072+768=3840
4-3840*24=92160